设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9776|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]; b, m; V2 W; h" ^' G5 G/ a8 ^; T
to setup; H& c. ^# o9 ]) `9 X
  clear-all# O4 O9 d7 i, M+ u9 d' ~' P; o
  setup-patches) _/ j( s5 }* N; b7 W
  create-turtles 100
1 W7 z; K! ]! B1 r: Y; s3 M* h  do-plots' s0 M& i7 \6 l4 ?3 T5 w) ?
  ask turtles [ setxy random-xcor random-ycor ]
4 M" f7 y# @- U* rend
. W" j* H7 ~: ~* z; W1 vto go: z9 ^- x" F# s( k3 a( x4 c
  move-turtles& ?* J4 _* b4 k; d% L: ^
  eat-grass
5 u5 l( @% b3 n; [) n: R" p- Z  reproduce% P* B# D5 E" Y8 z+ z  k
  check-death2 ^8 Z' Z4 V5 s* z6 t0 S
  regrow-grass* z, O& G0 M2 Y9 N; b0 Q
  do-plots
: @" j0 U3 A+ }# t. e! Mend% M2 J5 w  ?  e, t/ W$ c
to move-turtles' N# |7 v# U/ w2 T' ?$ M
  ask turtles [& Z2 m! c. V- r8 y1 B0 b- V0 L
    right random 360
2 _% o& ?" V# V4 o! ]    forward 15 F+ B3 W( Y) {" E2 N' L
    set energy energy - 1
7 z( j) ]5 G7 T" [9 e    ]
. j! a2 y$ [- b. j6 a; p3 Mend
0 x- o  q2 o$ Z& ]- Fto setup-patches& E. p! I" W- Z/ Y
  ask patches [ set pcolor green ]
6 n* W% V4 o, ~& j5 e# x. gend
; q( o+ o( w4 s, n6 _% B3 d$ Eto setup-turtles% b6 x6 g8 c, ~# V' m
  create-turtles 100. ~$ ]4 N! L$ [- f
  ask turtles [ setxy random-xcor random-ycor ]
1 t( w: z$ |. D; V6 Bend
0 h* W+ l  s* z( G- \; \6 vto eat-grass
4 X0 I# V1 n. J( e  ask turtles [
) b3 Y/ A2 A# i* Z    if pcolor = green [
( w7 i2 N8 o/ e7 d' ~      set pcolor black
+ J6 r" B1 i0 U0 r/ p3 C0 @+ d      set energy (energy + 10)
! I/ P! }) }) ]  f3 l& Y      ]
$ P% m1 a& y- y: U* r& I) B7 l    ifelse show-energy?
2 O8 g. H  z, y! U# q2 V      [ set label energy ]6 R, h! d! o  g& ~, k
      [ set label "" ]
$ l2 c7 r9 h1 t6 L$ E" k1 M    ]7 u' E! f4 I5 t2 H
end
9 \# `' T& ?( sto reproduce( `( k8 V1 W5 u8 X  e8 p; a$ D
  ask turtles [
- v2 f/ G: a2 S& ~( G4 \    if energy > 50 [, `. U0 j/ N# B6 a! X& V+ K6 M' f
      set energy energy - 503 _, `. I, L$ }, ?- F% U7 T
      hatch 1 [ set energy 50 ]
! q3 h3 n0 S& k- t; s1 k: o% c      ]
8 o/ \7 E! W; e5 i% c6 U    ]
5 U: ^7 W, O. J7 iend
) z) P4 M3 {) N& g3 nto check-death- d$ F, x  H9 [, \; v4 \4 g
  ask turtles [0 _, G5 Z% d! s3 _# G" Z9 x
    if energy <= 0 [ die ]
. q2 k' q8 v2 f* b    ]
! h; k& E7 `$ r& `end- X2 K% ^% a; H7 U: A9 d6 ?& N
to regrow-grass
& z6 Q6 Z. X  k  ask patches [
8 G& U0 e0 A+ r5 c; l  c    if random 100 < 3 [ set pcolor green ]" n3 D" Q2 O$ M0 ^
    ]7 V2 ~2 @7 I! Z: u, \. p8 Q
end
& Q' u' h3 d: |! Y% hto do-plots
7 Q$ [5 u/ W- V: L9 \1 |  set-current-plot "Totals"
1 A+ h0 r5 L1 J3 W) }0 P4 ^  set-current-plot-pen "turtles"
, l2 K( j- F# A! m  plot count turtles
* l. E: b3 S! s# L$ l  E  set-current-plot-pen "grass"
* c* w& x5 n! H  plot count patches with [pcolor = green]/ q+ {/ [1 t1 p
end
3 ?$ d: l" p9 b) V可是运行时提示no such plot: "Totals"
& W; i; J4 c( v, h- m- a7 S7 m. q! jerror while observer running SET-CURRENT-PLOT" z& L2 {# {. B2 G; b* I" R  t3 s1 `7 E
  called by procedure DO-PLOTS
, \+ s" X0 z- k$ W1 L3 O  called by procedure SETUP
/ U5 D6 f: J7 v* \  w$ n. Z  called by 按钮 'setup'
" X5 X$ D# o3 u0 R. t8 F3 [求大神解答啊
发表于 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
3 V4 t( `1 `3 o% P8 q' p3 U( v建一个叫做叫做Totals的绘图框就行了
9 v6 N0 Q6 L7 P
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-20 16:49 , Processed in 0.020798 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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