设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8514|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; ?$ c- r5 G0 j. _to setup
1 U- V. |8 g. J8 i  clear-all) z1 Y* p# `+ o% o0 y
  setup-patches
2 E/ m# v9 V6 `2 g0 F8 T! ]8 Y  create-turtles 100# M9 j) L- [5 _' w% `
  do-plots
( ~$ I1 H3 P3 j8 q  ask turtles [ setxy random-xcor random-ycor ]; t' t; b% |$ D5 u4 ?
end
) g( X! F! o& X. G: Q: mto go
' _$ D4 t: V' B. f! F" a  move-turtles$ f* f( E1 i3 s
  eat-grass
( ~& J0 E$ P# I  Z) `  N, W  reproduce+ I: `2 V1 T: X( `, _# t
  check-death4 J2 I' C7 K; J/ e9 S9 d$ q+ }" @9 |; {
  regrow-grass
: y% v$ y! E; I) u1 d  do-plots
& P0 Y1 ^! I2 q8 eend
  {+ e3 L; `- o8 B$ @+ n, T7 ito move-turtles
+ ^& M0 v! H- i, s$ }" m  ask turtles [/ Q! j" g& q. S5 m% ^* K
    right random 3601 F& a) n6 @8 v% i
    forward 1* l4 w8 p+ \. I+ p
    set energy energy - 10 H, W, I, _2 n( J
    ]
; `7 D: K9 C2 b$ C, Eend
; A' a4 }0 ^, X5 Kto setup-patches" u0 `# u1 \. k
  ask patches [ set pcolor green ]( c6 S7 e, p3 e9 P4 T- ^# S& k
end& ]  |6 S: s" \! @
to setup-turtles5 l+ X# u& J# k2 Z
  create-turtles 1001 o, H6 f9 j  }+ \& u6 W! a( u6 c
  ask turtles [ setxy random-xcor random-ycor ]$ x3 G5 j. i% d/ X% \) k
end
" p% l/ S5 n5 m9 C0 V, ^to eat-grass% ~7 f* h2 E* z6 D
  ask turtles [
. M+ l% Q; a+ Q! |0 i% n  l3 T    if pcolor = green [+ \5 J, \5 V$ h( }7 L
      set pcolor black
, _$ P2 F$ I# I      set energy (energy + 10)9 n' X. e7 t6 p- w+ ]: Y
      ]! X& N% t+ M& ~( n* }& a3 @7 G! ]: a
    ifelse show-energy?& M+ I% v: U2 s
      [ set label energy ]( {  i1 |" U6 ]6 b' ?
      [ set label "" ]
$ P: j4 A+ s: q    ]
2 d3 {8 y( G; {9 oend/ P/ K' L8 L$ W" C- u
to reproduce
5 h, U2 s% ]* ^8 n7 r2 l  ask turtles [7 s2 c  v& z- G! D. z
    if energy > 50 [8 b1 b% y( t2 s$ `. [
      set energy energy - 50) z) X( l; o8 F( ^4 u
      hatch 1 [ set energy 50 ]  @; v7 ^7 z- d- a
      ]2 e$ h6 n# o7 J2 P, `
    ]
/ G1 n; _" u+ U7 uend
6 M0 C) J5 m- f! d, k3 \! v; {! Jto check-death  |+ N: ~" }8 y4 B! R& Z7 P
  ask turtles [
$ ~, q. D: m7 D- c5 @    if energy <= 0 [ die ]* q) R( \5 O* p6 Y! B8 a# D! K
    ]
/ v* k+ K! {7 z! b# c, Xend0 X. a5 T, q3 f8 q9 s) }; j" S
to regrow-grass
6 ~" W6 n# L; u# J# F: x; p! `  ask patches [, S3 ]6 n2 [" F. B7 K
    if random 100 < 3 [ set pcolor green ]
0 [- R4 O% Q: J# k( C    ]7 a) z  {1 t4 S% {
end0 J* H" A* @) b0 R0 m- W
to do-plots. m5 C% \" d# h( N( M! Z3 F  C
  set-current-plot "Totals"9 a, ]2 S- c8 L& z8 d1 n
  set-current-plot-pen "turtles"" c9 \1 A2 Z/ f) m0 t% F
  plot count turtles8 p, }0 q+ z0 n  n" a) _
  set-current-plot-pen "grass"
( l! k6 Z0 \1 i7 u( Y$ x9 i  plot count patches with [pcolor = green], V8 f$ j/ g# N" c6 D
end3 Q2 N, j' ?( j  R4 ^# z
可是运行时提示no such plot: "Totals"
7 B7 ]3 v5 e! i6 X3 F: Berror while observer running SET-CURRENT-PLOT8 [% f. Z! A5 L" j
  called by procedure DO-PLOTS
8 {' B: {3 N0 [% h+ v  called by procedure SETUP. S% x: y( O' M( q* D2 n
  called by 按钮 'setup'6 a! L1 V% i, m3 R2 P/ m7 d
求大神解答啊
发表于 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 1 O1 ?0 L& E# J9 ]% ~" R" F
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-9-13 22:09 , Processed in 0.025067 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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