设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10865|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ a, X6 r- j, z4 Q( I& s
to setup2 f% V6 S, f+ P1 |' j! @# h- D
  clear-all/ @5 L7 x: [5 e! }! f( k  B9 x
  setup-patches% y2 ~( c8 L7 w/ n* D/ c  r
  create-turtles 100
: y) d* u7 K8 J5 u6 g4 [  do-plots
: k% ~% t  F" H/ s  ask turtles [ setxy random-xcor random-ycor ]' R. ~& Z6 }% N. w
end% P$ w. z. l) g9 @
to go+ e$ h0 [+ \" [; x! _$ ~
  move-turtles2 m# a+ j5 @6 L1 p! v& u# b  P
  eat-grass: l  s- L4 c0 @9 {. D
  reproduce
! z. @. e# {; |9 J$ n  check-death: F# h( M+ F" o  W
  regrow-grass
; Z$ ?6 g" S% {& J5 w" J  do-plots
! l/ ]9 @/ P8 e9 Z' b3 ~9 Z2 pend+ }& P4 Y( r5 R% T2 J! R
to move-turtles! G3 O  I- ^, ?
  ask turtles [  N* f& T1 x3 v- ?
    right random 360
7 E0 O4 e: b: x) r: u# b% ~    forward 1  O' O0 K7 _9 z- ]
    set energy energy - 1
) a) S, q6 e8 o: `8 b) x    ]
6 Q6 n1 h' H5 D1 X$ vend8 W1 r# i2 {% @+ M7 u: n
to setup-patches
* v1 t2 |' E! M* S. R% i( I  ask patches [ set pcolor green ]8 l- O$ p, K6 a' K: G) W' Z6 q0 x
end
) ?- c: Z/ l8 ^, q# i  K9 B% _3 A$ Nto setup-turtles5 A' g  r7 N4 _0 s2 k
  create-turtles 100
! b0 C; `1 ^: Q) V  ask turtles [ setxy random-xcor random-ycor ]2 e- A+ p) l! L  H1 n6 ^4 y
end
% D+ Q0 l+ y1 I2 |0 Zto eat-grass
. f7 K" q4 }! m! W( F" l& d  ask turtles [
1 H# w, P8 L- w    if pcolor = green [+ p7 q; k9 y8 i! R7 h
      set pcolor black3 r# Q& I9 t$ Y
      set energy (energy + 10)3 c$ x2 n0 F; U  P# y
      ]
( f: Y: G! t" v' D    ifelse show-energy?
) F6 m3 J* p, Y' U      [ set label energy ]. U  ?% v) V6 n. X
      [ set label "" ]
5 U+ i9 \. s* y$ m% O    ]$ y( r( ]6 X9 R- L9 [+ i# h' K1 X
end
- \$ X' U- K6 E' h" P9 z( fto reproduce
4 H& R" A! {1 H0 C9 @# ^  ask turtles [/ V& d) `  u9 ~
    if energy > 50 [1 ?. y1 t+ g2 ~! p* j
      set energy energy - 50
/ B- o0 e  o' v% K- G; G7 _) O      hatch 1 [ set energy 50 ]
- z; k2 y2 U  N6 O! L      ]
+ Q8 q( r' G0 p8 ?6 c( _5 K, H; q    ]
' D* x9 [  u. E' @end3 u- d$ }: E5 T+ M( {% A
to check-death
% p7 b0 |+ k% E& b7 `4 ^  ask turtles [1 i( J6 K" d8 s) N( ~
    if energy <= 0 [ die ]
: U: [- V9 H. y% ^4 ]    ]% Y* v, V  C% V9 C" l
end4 j7 S! x) w' j$ q2 `) ~
to regrow-grass
2 M3 h9 F  j# Y. A+ }5 z  ask patches [
  v! w' L' |4 i4 m( h, F0 }3 R( i    if random 100 < 3 [ set pcolor green ]1 m; z; e* A- O6 R" w
    ]9 V, j+ `, N6 ]) T  m$ J
end/ P  H9 e6 ~; r, d) X* T5 ~" I
to do-plots  ?6 U0 g- v' T" V4 [: ~
  set-current-plot "Totals"
( P. J; [1 M9 B$ b9 R( T  set-current-plot-pen "turtles"+ L1 x: e9 |4 F: [# u/ {
  plot count turtles
; W  z. `" p1 x' m; k# d+ ~8 g  set-current-plot-pen "grass"+ ^; `! d2 M: H2 }6 g" Z
  plot count patches with [pcolor = green]
+ _8 p+ C5 J9 y: Zend- B! s* r  D6 Z+ C0 U
可是运行时提示no such plot: "Totals"
. A1 }4 W; R: }8 a; berror while observer running SET-CURRENT-PLOT. q7 s( ~, q% ~# a3 C# C
  called by procedure DO-PLOTS
( t9 }; _- o9 q- n# E  called by procedure SETUP
( B* A1 b/ v- d% z0 ^  called by 按钮 'setup'
5 @0 I* U* V" r: e求大神解答啊
发表于 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 # o% ?9 C8 z& ~
建一个叫做叫做Totals的绘图框就行了
& C5 {' }2 W9 o# A4 t- f
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-16 22:52 , Processed in 0.017548 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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