设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9447|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, W: v  S2 y" M5 ^1 Q3 E1 R9 jto setup
8 `: _$ r5 F& q& C3 W5 _6 b; B  clear-all
) V) H8 t3 p% h, I& g# d$ x  setup-patches
" s0 `2 a: R: H+ b& e  create-turtles 100; a: A; x- l2 C( Q, A/ I# ?
  do-plots' I' R8 }7 q2 I) I0 x5 @
  ask turtles [ setxy random-xcor random-ycor ]
: Q& ^6 I, q2 s; Z# G& Iend
* E) S  H+ s' M( N  e( Mto go
+ A" O4 l/ ~; A  move-turtles
0 q6 e' H' G4 O8 i+ L2 o% a  eat-grass7 w! {  J7 o! d/ [% C
  reproduce
5 ]2 p6 n* |3 ]1 {; N' |# N  check-death# D% X7 a' h. v& M4 L4 b- G: y
  regrow-grass4 X, R1 o$ i8 S5 X/ c% D
  do-plots' f# h! ]2 R8 t+ R& s( O1 A
end9 T8 n# G' u% {6 ~
to move-turtles# m) Z% v7 v/ ~$ ^; P+ T8 a
  ask turtles [
! b/ J+ C4 U+ j  I4 _    right random 360
" B* i" C# w2 z    forward 1
8 |) X$ \# D& H- _$ h8 y: q    set energy energy - 10 d& m% F+ p& J6 b* q
    ]
; A2 {8 i% B9 P' n7 Rend# c8 l9 A, w; w* w
to setup-patches- G' V7 U& V1 u4 L- x5 ?, F. O
  ask patches [ set pcolor green ]
% T8 z; q. A6 Z$ s' ]) Iend
& n* [: R6 d' q! B. |to setup-turtles1 [8 w% M; t/ `- D
  create-turtles 100! o, j9 l: p7 n6 N6 w2 w- g
  ask turtles [ setxy random-xcor random-ycor ]
# d# A$ O+ F. f2 H0 iend
) h. U2 j) V. F, V3 u5 i( Jto eat-grass3 p1 g* {" o9 ^9 B8 V  b
  ask turtles [
! E( a  y  k5 L9 f+ G/ ?    if pcolor = green [
3 P" T& [- v. B* @      set pcolor black$ d2 U' `1 G" @5 P: O
      set energy (energy + 10)
8 W/ E/ K  g, {( f$ T4 R      ]# d( P9 u) V, h& a' P# U# |" S
    ifelse show-energy?
5 Y  b$ \& B: a: z8 H, H, r' |      [ set label energy ]
% e% f) b; [1 @) N. G      [ set label "" ]
& j. x& R9 i2 L    ]1 j8 r0 u4 m& T: H& x
end
( m& M# i7 t6 ?2 W- e- A% ^" ]# Gto reproduce
# X4 U, J9 y- ~7 E! O  ask turtles [
" ]3 l4 |% A8 l* q    if energy > 50 [' e1 W3 e3 K( Y* W4 H
      set energy energy - 50
9 j" X$ a' [: a1 O0 g  X$ \      hatch 1 [ set energy 50 ]  p3 W0 n, f/ k2 q
      ]
0 j, M( s( `5 x  ]& m1 m' w/ W    ]$ K& K7 n7 [8 ~6 z
end
- t0 M" t2 p6 M) \  J, Y& k. Pto check-death
+ y) z& m6 S* v  m  ask turtles [
3 [' f+ y  M% {: ?9 b9 s% r    if energy <= 0 [ die ]
' u' w5 U. @& q2 L+ n3 S    ]; M$ g" ]7 d$ I; a7 Z$ H$ H3 G
end3 z5 n' ^6 P% v
to regrow-grass
6 `8 A6 ?. x0 j+ }; u# g% v  ask patches [
; S- K* }' U& D6 y    if random 100 < 3 [ set pcolor green ]2 j  \& G: z# o" C
    ]3 A$ ^4 I& P; Z, m5 f4 [5 N
end
8 m9 ~9 ^& Z) \) C, \to do-plots+ b* P4 L4 Y0 O) H0 U9 |5 T7 B* J
  set-current-plot "Totals"- s0 \, Q; ^+ e* \7 d
  set-current-plot-pen "turtles": ^3 ~9 g1 x& Y2 h( B' T: M1 I! p
  plot count turtles
8 K$ @$ _: m- G. s. g1 F6 z* N  set-current-plot-pen "grass"! h% x/ I9 s. y2 K/ e
  plot count patches with [pcolor = green]* {' `7 e" m2 \% O& y
end# d) c+ ^1 X% X% ]
可是运行时提示no such plot: "Totals"
1 k# v$ Y) @1 q1 t6 k7 Xerror while observer running SET-CURRENT-PLOT3 E! V' N" [$ I3 n/ r: g2 a6 k4 K) z) ]
  called by procedure DO-PLOTS
! }$ V! @3 m" e( g* E% i  called by procedure SETUP
& y' H4 F: O) z' T0 E! I  called by 按钮 'setup'$ X- U8 @5 j/ z# T
求大神解答啊
发表于 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 & V) `, {- f% ]5 n& J( P' F: n& k
建一个叫做叫做Totals的绘图框就行了

) i9 `0 O  s7 Y5 X. T8 [, `: F0 k哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-15 18:49 , Processed in 0.033874 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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