设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12440|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
" L* \: m; K0 X( s- d, T! k8 S/ Kto setup. _" z) i+ b' O- J; u7 U
  clear-all
9 x* B% Y% v' L! B! c2 a  setup-patches
6 D/ N  H4 u2 L. n0 G! J  create-turtles 100
; o1 |5 |& t1 V  do-plots: T( @; V$ K* l9 C* h
  ask turtles [ setxy random-xcor random-ycor ]
4 V% F( K6 \2 B, t4 ]: B1 C- j& Hend8 I8 `* T6 l9 Z2 x- R
to go
8 w2 t# p9 Z2 d; }  U% x  move-turtles
# H. r+ g4 O; x: @3 @; g% m) i  eat-grass
: c* L: A' I, f0 V# z5 [6 r: C  reproduce
, T% b: G7 |/ I; e2 {) b  check-death
0 e' K; H+ U* q  regrow-grass8 X( N3 y. Q+ @. i6 \
  do-plots
1 h5 {4 B" P) e- g! _: D0 o8 Xend$ [  R9 a4 }" {* v* }% I
to move-turtles3 F: ^7 o- t( `# ^  J
  ask turtles [5 `% P0 ^' [1 Q# A' |* Q$ Q0 A8 Q
    right random 360
6 D4 b- l% j/ a4 r    forward 1
2 S" N, W6 `% V) L) d, Q, ~    set energy energy - 1" c2 \) p; }0 a- _
    ]3 y1 s& b* A" [% ^4 u! j  i8 Y: j
end0 Q5 ]; {: U- y+ y
to setup-patches+ B% r2 k3 N1 p4 X
  ask patches [ set pcolor green ]$ G% f7 p$ U$ |0 U& Z( B% D+ y
end
" {0 y# D! n3 G2 `* @3 v+ ato setup-turtles- ?8 Y- S( q4 Y7 Z9 t
  create-turtles 100
# A% u1 U+ W5 I0 l! ~  ask turtles [ setxy random-xcor random-ycor ]4 o/ |4 z; Q& |! K) S0 A
end
- s0 e' k% k0 w, M7 c/ e' e- Tto eat-grass
" K! \# s4 k0 D% z" ~/ J. t, C  ask turtles [0 i) R/ g8 K( B/ o/ ]
    if pcolor = green [
4 C" j/ K' a' H% I$ @+ S$ H      set pcolor black0 J& z  ?. m) ?5 R4 B5 b
      set energy (energy + 10)7 T2 m) l0 [4 M" [" E
      ]* O7 ~- M2 B9 ?  e9 D( R; b5 c
    ifelse show-energy?
5 @# |- w# |6 l; P  T/ p* Y7 a' E      [ set label energy ]; W, z9 u* P; [" Z
      [ set label "" ]* g2 v* Q2 P% h# V( k- L
    ]
- `& f$ u  x! e% W( H2 aend2 E$ U9 t0 R" [% }- [
to reproduce; c# G% G, I' [' L
  ask turtles [  F1 b  P2 O3 c
    if energy > 50 [- }; N  D2 h0 Z7 H9 t2 ~) G
      set energy energy - 50
+ Q: P# O4 f) t      hatch 1 [ set energy 50 ]
3 h; \4 X& x( {/ f/ a. B1 q      ]  A7 k* r$ t; y7 ~  S
    ], ~" |& C: R$ }, N; M
end" R. [: a1 }. w. p6 A5 M* f& W
to check-death6 o; N9 C% F" A3 }6 _' ?
  ask turtles [! {. h1 ]' x& Z4 \
    if energy <= 0 [ die ]
& M0 G2 p( |! ~    ]
3 I6 R' f! B' R2 ^% }; o' @& u) Qend
9 ~: O" X% h, k4 b$ uto regrow-grass3 I$ r; R2 ]- o4 Z; v6 ~
  ask patches [& \: D6 r, n! d1 g5 |
    if random 100 < 3 [ set pcolor green ]/ V" E( v: s0 ]6 [
    ]
/ l0 Z: a+ _0 `2 ?end4 {/ o7 D* |! Q
to do-plots
6 u( o, @4 f* w* ]) {  set-current-plot "Totals"- X5 o% r- v4 Q7 X8 q1 T6 X; i
  set-current-plot-pen "turtles"
, h! f) j+ l- f. z& b8 T6 Q  plot count turtles
8 M5 j! M) p* ?  set-current-plot-pen "grass"
+ B* J0 u& d( `$ ^9 i7 j  plot count patches with [pcolor = green]
! \- ]9 i8 w% M1 D& O5 `3 @end8 M3 j( ^6 N7 _$ O2 g/ s, s) I4 ]+ H. ~
可是运行时提示no such plot: "Totals"9 _. x& p- T% A. }4 N# O" B
error while observer running SET-CURRENT-PLOT
8 p3 S. O" p9 k: A  called by procedure DO-PLOTS7 o! N: c4 {+ U3 O0 M1 `! P, E
  called by procedure SETUP
9 B2 w: \  f/ J4 Q+ W9 Z  called by 按钮 'setup'
9 K$ N# }% C1 u3 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 ; c' ^& [$ _' J5 {& ]/ U9 g
建一个叫做叫做Totals的绘图框就行了
2 b2 L2 |; w# p+ ?- R! n
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-21 09:02 , Processed in 0.020956 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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