设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10267|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& H7 f- W0 R6 q, o$ C# wto setup2 F. a. K+ B2 |7 o! `' Y7 p3 C
  clear-all
& v' W$ E% E! I' c) }  setup-patches+ A. d# S# q  `$ J# H' D( y' }
  create-turtles 100
5 y1 M, n. w3 x' A+ v  do-plots- g! H3 t7 y* i/ J
  ask turtles [ setxy random-xcor random-ycor ]$ F8 N$ p4 p3 Q# \- y3 z( D
end
0 `7 T& Y. |6 _! u0 w" uto go
: }; C( l6 S, g8 \  r  move-turtles7 `2 z* N- A$ a+ m6 C+ L
  eat-grass
4 p8 X. @! e! F, q  E  reproduce
+ {4 h- x4 r1 j+ T/ X1 N  check-death3 q' r& o+ F- u2 x
  regrow-grass/ ^7 z: Y% s" {( O  C
  do-plots
( N+ W9 E  f3 L: b) s. k/ C4 S( U5 mend
  {! |6 A" e! w: fto move-turtles& W4 ]& t7 B" s; ?3 a5 T+ n6 d
  ask turtles [: m: @. V( o9 A2 D- [
    right random 360
6 @+ Z1 S5 y5 C$ O5 J0 a1 q. k    forward 18 ]" e4 p' a# K4 N) w" r% c" \+ {
    set energy energy - 1' B5 Z  Z* m4 Z% l' ^. ]
    ]+ x! x; @! T6 s
end
3 O6 @- ^$ d. Bto setup-patches! e4 B' A) b. A
  ask patches [ set pcolor green ]) M( U: r8 h' r
end3 N& _+ ?! e6 y% z0 q2 s% ~8 s: ?( L
to setup-turtles% U0 L2 y( l. S2 E& B7 [; l
  create-turtles 100
0 w6 w: q1 k; I1 M( C+ G  ask turtles [ setxy random-xcor random-ycor ]/ w2 A& ]% v. f2 m8 M# F
end9 L0 N( b$ X- U& h" u5 }
to eat-grass
# ?9 E7 U# C  ?  ask turtles [
. P5 r3 N% }$ @9 ~    if pcolor = green [# |8 _8 [$ K) e  |# u
      set pcolor black
) I4 k' ^% i9 K* e, [      set energy (energy + 10)
, Z, @/ n" M2 w, A, B      ]
2 [2 F* n% Q& f0 o  l) v    ifelse show-energy?
* ?1 j+ N: ?2 p2 h. E      [ set label energy ]
1 x4 o4 y5 o" t& C      [ set label "" ]
% I  P+ S+ [2 ^9 W    ]- o. i" j! H9 M! _
end& a8 P. p" \: T) c2 V6 X+ i' t
to reproduce
. Y0 |. w# y$ [  ask turtles [
: f+ h: i9 L$ I# S, R    if energy > 50 [+ O( o3 P( @. f% J" z# U# a, P
      set energy energy - 50
1 ^* d$ ~$ `: B7 j      hatch 1 [ set energy 50 ]- K8 h2 s7 E8 f- U( Z; \& P
      ]/ Y1 K( g2 d" Q5 r  U2 a
    ]& [) ]3 e0 b* C2 n1 p8 f
end
0 x+ Y6 E/ }+ }0 h) Cto check-death4 Y8 X" A5 @; L. O  r
  ask turtles [7 d3 G6 \1 Z6 l' l! w8 Z: ^
    if energy <= 0 [ die ]8 U7 h8 Z2 c: I' r+ R" Y; _& A
    ]4 x) u! F  x  c5 S. z- H
end
8 ~$ M6 T" U/ xto regrow-grass4 t, R7 z  ^$ d+ l# H: y! Y% \( J$ d
  ask patches [
7 Y. V# z. t0 A2 R    if random 100 < 3 [ set pcolor green ]* I# s9 U+ C7 H' y5 }* f: ~
    ]
1 s6 w# V8 j. b7 A$ K, Lend
  N0 ]6 K1 J3 Q( Xto do-plots
' v' O/ l0 }' {; N: g- `) k  set-current-plot "Totals"
% L' i2 {) ?. X4 ?# U  set-current-plot-pen "turtles"9 g4 N0 a, B, Q  h/ H& p
  plot count turtles
2 O3 W2 Z' |8 b: f. d  ?2 D  set-current-plot-pen "grass"
6 A& w- d8 e; F4 E2 C  plot count patches with [pcolor = green]: c9 |0 Z+ _) E7 M/ w
end
0 [' P" J' a0 u: P, v: F可是运行时提示no such plot: "Totals"
: |- D/ }5 {6 E4 {2 z) Nerror while observer running SET-CURRENT-PLOT
/ d& _( O" g1 z% v  called by procedure DO-PLOTS
% P2 {/ T- O* `1 H. Y' E: k  called by procedure SETUP
2 x- i" n$ H9 c% k1 h$ o  called by 按钮 'setup'3 d- t4 ^& D# X5 F, h
求大神解答啊
发表于 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# }1 \; B! f' T; n' t* N1 I
建一个叫做叫做Totals的绘图框就行了

3 ]& {: \. b' f+ C' R. K- U. Q' u哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-28 06:54 , Processed in 0.018702 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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