设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9728|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- J6 L6 r+ m# G; [7 o7 fto setup2 g$ }' c5 m+ ?6 L! D. S
  clear-all
- k. J/ j: R3 l! X8 R4 W  setup-patches
& r% X2 z6 w$ [" ^# C+ r' g$ J" m" r  create-turtles 100
% {3 Z; P2 r* C  do-plots
6 I; d7 n+ D- e% x8 R  ask turtles [ setxy random-xcor random-ycor ]
) U5 M- P3 {- ?end$ L# P1 y) z) ^0 c
to go
, c! D( B% a/ z: C  move-turtles' _' J  I3 A1 g$ T
  eat-grass  J1 K5 f0 ^$ B7 X
  reproduce
2 J' \. r0 {$ u! ^/ z% ?/ J% J+ G9 S  check-death
5 O! n. P! O! M; \  regrow-grass0 D! ^8 y  K  U" R' R
  do-plots
& d9 o. c& X$ o% g. r8 x* f- wend4 Q  n3 w) g0 m) Z& Q* c  W
to move-turtles
% W& z9 d$ i1 y  ask turtles [
: L  r# g- ?$ c    right random 3603 |8 k2 ]+ |  U
    forward 1
) O$ H! H7 d: S0 ?; J) b    set energy energy - 1
6 ]7 W* ?3 `7 q    ]9 H8 U; G  m! a3 w7 L5 q! N
end
! J9 ^. V0 E, {% a& @$ S9 U( ito setup-patches
6 y% V7 k: j3 r1 Q( Z6 J  ask patches [ set pcolor green ]
) y/ ?( G9 Y  j1 ~+ u8 ^end+ j% u! F; P9 V+ y' S1 k
to setup-turtles7 X' P$ U1 {4 _/ M1 p+ w3 N& j# O
  create-turtles 100
0 g8 t4 R( T7 _, N! j  ask turtles [ setxy random-xcor random-ycor ]
* x" L. q* E/ _/ [& E  X$ k6 h, Wend
% |: J" X' a9 f3 c! Pto eat-grass
6 D* X' ]7 x- E+ k  ask turtles [
4 [( h2 d. F5 H    if pcolor = green [6 r6 a9 u" L% a6 @: n' Z
      set pcolor black
) O0 |4 }) Y8 x$ f5 }6 `/ n) }, o      set energy (energy + 10)
3 _: [# n. s2 @9 V      ]" L% E! v: @5 O6 [( y, u8 s
    ifelse show-energy?
) d& ~" Q+ ?& o. D6 Y      [ set label energy ]  P" L* `- k) ~) |7 j: |  Z6 P
      [ set label "" ]
7 i7 a& C8 K# ~  A6 Y. q. n    ]
# V/ _& e  J- \# n) |! w& Iend4 U4 x3 l2 N+ l2 Z9 l) C
to reproduce
, p. n+ X( h9 E$ G6 H  ask turtles [
# }/ ?- u" \! D* F) O# B$ P6 v+ u8 e    if energy > 50 [
. w4 u3 c+ y3 d6 Y: W* m, `& e* o      set energy energy - 50
4 q0 y; G0 W/ R      hatch 1 [ set energy 50 ]" B5 h. a) v3 z+ B
      ]+ H1 @. n+ G  W* c, K
    ]  k7 X9 _4 m, O& H2 U
end7 `' P' S" m# F
to check-death
) K& q4 h  G2 f6 w1 H  ask turtles [8 x6 [' e( m& l( b: w$ E; y
    if energy <= 0 [ die ]5 z# F, @; L# u
    ]" x; ]& c  R2 f5 d
end8 o/ |5 n, w+ i2 q; }5 I
to regrow-grass
3 E. u8 S- {$ C  ask patches [
# ^- U$ g$ `2 [& f7 l    if random 100 < 3 [ set pcolor green ]
3 w# L4 e" p% i& S3 u  K3 ^    ]
& K, h; e, X& R8 L, Eend  C# _: J! d5 O% B  V$ y$ v
to do-plots
- T$ b( o- U! n  set-current-plot "Totals"" V5 d( T- q7 ~
  set-current-plot-pen "turtles"! x) q9 Q- U! {) w
  plot count turtles' K  G0 I1 X+ F* _, V# p9 O
  set-current-plot-pen "grass"( i! I5 H2 Z+ C' r. ]* }
  plot count patches with [pcolor = green]
0 z8 C' s. E1 ~5 k5 b& A, V& Hend( h: ~# c/ Q) j- [: g- x/ m3 j/ l
可是运行时提示no such plot: "Totals"
2 ~$ W- C7 N* f& I9 w9 \" verror while observer running SET-CURRENT-PLOT
$ Y/ C$ Y( J4 X' p5 G" Y  called by procedure DO-PLOTS4 J. c. t1 x' f8 n
  called by procedure SETUP6 ?) m7 O9 }5 n9 R
  called by 按钮 'setup'( o4 }* s4 B# m" l+ r7 L
求大神解答啊
发表于 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 / x8 _- a* S" y; [5 e
建一个叫做叫做Totals的绘图框就行了
) |$ d. @9 p1 I4 h) {
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-16 01:05 , Processed in 0.017912 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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