设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11929|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]4 S! n3 y2 e2 w  S' A% M" `
to setup9 U: M% H* E: j- O. V5 ?9 _
  clear-all$ W1 Q/ e$ l7 Q& Y* W8 R
  setup-patches' [3 Y  k' ]! Z9 @
  create-turtles 1003 S5 M/ i5 Z* A7 V" \$ x, k
  do-plots( C) i. J! y& D4 t+ `2 r& R
  ask turtles [ setxy random-xcor random-ycor ]
1 t* L: F' C8 y' P9 bend2 j" W% X/ K% c, i; R6 X
to go) d  @# X% f+ \; b/ j
  move-turtles' D* V, ]2 j- X& O2 j
  eat-grass1 ~# e, r4 ]$ @. J8 O
  reproduce9 O9 s0 y0 I$ M( K3 Y# r
  check-death
" Y$ G+ t" |, V* u  regrow-grass
0 I$ P1 Y. m7 ~: [* h  do-plots2 ~' j& }9 A8 L8 \- V
end' i% ~9 [% F& R) s5 R9 d
to move-turtles
$ ~4 E$ G2 L: J7 f4 U# e; ~4 ]  ask turtles [
& A5 v' G+ V; C% o    right random 360
* W0 M, y- P5 X    forward 1
4 ]8 V. B) q& r8 ]" P% p  S" l4 r    set energy energy - 1
* w0 Q! d" B% k) G7 @- ?- x    ]
6 }4 [, R6 n1 ^9 J& O. b! rend
  n6 I& g2 v# [' q3 M2 S$ R& `1 Mto setup-patches
! _2 O+ u1 Q" b! F  ask patches [ set pcolor green ]
5 k6 n- \4 U, {6 Kend( G: J8 }4 n2 S4 V& E, c
to setup-turtles
# r4 Q4 K$ ]9 T( g2 P( [  create-turtles 1003 E8 o) }" V! O' H
  ask turtles [ setxy random-xcor random-ycor ]. i7 k: }- Z0 O
end, q. I/ _1 F' K- w
to eat-grass; W. g" {9 k/ q& D3 `* [; o. k2 y; Z. y
  ask turtles [
3 P2 _* t/ ?8 B    if pcolor = green [8 t' O- c% H$ _- K
      set pcolor black
+ K& \; M0 r' @8 N' ?, M3 c      set energy (energy + 10)
+ @! c$ U: {4 ~3 L/ C: G3 k      ]
9 T1 x  f7 ]8 A! a1 w6 G2 h    ifelse show-energy?
. V  P4 K; O; V1 R3 Z" U      [ set label energy ]; A5 N! {& O+ K4 R; V8 Q5 f
      [ set label "" ]
2 {2 ]4 ~: R7 S    ]
1 n4 C8 u% |, C* t7 g  N0 Q- K" oend
# ^7 z* h; B; O7 S. Zto reproduce
+ P0 A% s0 V. j: g8 e( s9 k  ask turtles [
" W8 y. j( t3 e: R5 F    if energy > 50 [
1 x$ Z, ]2 F$ Q+ U      set energy energy - 502 v2 O" Z) b- R6 I) G. a, T
      hatch 1 [ set energy 50 ]
7 T8 j: @8 M% R4 q2 Y8 |      ]
' |6 N; g! K+ h$ }0 X, Y1 j    ]
( `! F9 g+ k( c  @4 B6 fend
) q. J3 Y3 l$ V4 i0 Hto check-death
- u# B9 B* G! X; r' @( T/ ~# U9 ~  ask turtles [2 _9 \  l) @5 p/ U9 H0 o: P! g
    if energy <= 0 [ die ]
4 U4 l) P# l! y! u; Y    ]
- |* @1 c+ u% Pend' M  N* w( `" W/ K7 @; C$ l. ~
to regrow-grass
3 J& ?! g9 |# V, ?3 Z7 B  ask patches [
% i8 k4 n: t. u; J, N$ W% R" T9 X    if random 100 < 3 [ set pcolor green ]/ O/ ]0 X3 D* y5 Y# K' w
    ]
1 V( g% I8 z0 Z/ z: g$ Pend4 C* z/ M7 I' u$ b) I- Y
to do-plots
4 ^! e1 w; x! k5 G, X1 T  set-current-plot "Totals"" f; ^, O6 j9 Y! [
  set-current-plot-pen "turtles"8 X. L. H2 V/ t" Z: x* f+ N
  plot count turtles
' k+ c( c( x+ _% S% F  set-current-plot-pen "grass"+ d$ s! {. s; V3 y; [2 y' o
  plot count patches with [pcolor = green], |! j. _3 I" [' q- U
end
% g: m; W& h' _1 c  R9 ]7 W$ a, [) s$ ]可是运行时提示no such plot: "Totals"  c! P8 S, D3 N4 X0 d
error while observer running SET-CURRENT-PLOT% H' v) U" V* f
  called by procedure DO-PLOTS, k: c7 L- ^" t3 U
  called by procedure SETUP) S+ _% C% q+ o* _
  called by 按钮 'setup'+ q6 w, L9 x/ l3 I8 Q' k; g
求大神解答啊
发表于 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 # I9 G" L* U- ]
建一个叫做叫做Totals的绘图框就行了

7 {2 Q7 ]4 I" {9 y3 o哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-11 19:32 , Processed in 0.018395 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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