设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10471|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]. t+ J% x/ T& F! h9 c
to setup# i) I6 B; `+ k( ?# ]7 a% W, E
  clear-all! K( `# o4 ]- @+ y9 H
  setup-patches
, \. h: K8 g" n' m$ R/ J8 S4 i  create-turtles 100
% @' \  ~$ o5 m2 m  do-plots3 I: W8 b9 L' M7 w$ H4 @! D
  ask turtles [ setxy random-xcor random-ycor ]0 }! N/ ^* ^" z. T. |
end9 A( r8 i; D1 I! R
to go" t3 @& q, E$ X$ M' b! L" R
  move-turtles
$ Q: _' S+ c( p; U0 Z  eat-grass1 z3 Q0 C4 t1 v9 K  S- d$ O1 w: k
  reproduce
3 a; k! J* }. c9 n, j, q- R# R  check-death
8 t9 ~  Z# T+ A2 t  regrow-grass% }6 P1 ~0 z' u; u+ D( W
  do-plots
- b8 t! C! U# U7 rend, f# }8 }; E$ Z! \, e
to move-turtles4 b/ p& y2 `" g8 _* H" k1 y! h
  ask turtles [
4 V* d. X2 V  L- t: p. u    right random 3609 Y: C) ~4 ?' P% n# }5 d
    forward 1
7 T, |/ X! j6 X6 S1 T( X    set energy energy - 1
1 w7 q. ?/ z2 x$ d& _2 J6 l4 s+ n    ]
+ H' `" U: K( W, q( qend
& x& d8 l9 ?1 eto setup-patches
' G- U) U" p3 C( b5 `4 L  ask patches [ set pcolor green ]$ T6 ]% U. l  _: [$ h& I
end' `' O0 n- n& ]4 q/ X* d
to setup-turtles
% N( v( w: H4 l  create-turtles 100
  B4 A7 u& K& s. |, V2 e* m1 {7 Q  ask turtles [ setxy random-xcor random-ycor ], }- y! |- H7 S8 Z4 g! R
end
, j% I& n8 Y( w# a) fto eat-grass$ ~' Y/ Y, T/ q( y$ G+ l
  ask turtles [: S) O* S  \" B  f7 N+ Q
    if pcolor = green [
. m4 y# m$ _3 e6 G0 i" L$ V; z( p      set pcolor black* B- b1 {5 ?. `1 h' B8 D4 G
      set energy (energy + 10)
2 `! M2 q( Y8 Z      ]8 F$ |0 l- {% t  b* {. d% p3 `
    ifelse show-energy?6 k% g" f6 F: F! R6 b3 s
      [ set label energy ]# s' g. |2 ^# `4 t: P5 T- S
      [ set label "" ]( s' ^) p; g7 Y3 d( p* U4 w
    ]
% a/ T$ D$ R2 [, Dend
9 Z" C+ D5 w  u+ I2 Hto reproduce# k  ?( A& p5 l  j% ]
  ask turtles [2 a, m7 z6 L% C* p
    if energy > 50 [( d. J3 y+ H% `7 P
      set energy energy - 50
3 E7 D2 A# O( a1 f1 ^5 N7 R2 R      hatch 1 [ set energy 50 ]
+ {" j' p$ v9 ^      ]- B) C* \+ K- ?$ k
    ]' F& u& E3 W  _! t( k
end3 p8 s0 P0 H: F; }7 t7 Q
to check-death
7 r; f' |' e% [/ `  ask turtles [! W5 X& r7 j! [( A5 O
    if energy <= 0 [ die ]/ h! S9 K4 x- }- g3 u% R
    ]9 y) G$ @8 w! x3 j
end( i0 ]  |9 N2 |3 B- g( d
to regrow-grass
7 }+ l! {% p1 i  ask patches [
& k4 E8 |( v$ m% _' a) I4 b    if random 100 < 3 [ set pcolor green ]
- u  E8 \9 Z6 A    ], J5 Y2 o9 A" w7 @1 @) b: S
end
! y+ X" ?6 j! F0 s! `$ e! Fto do-plots
" }+ H2 u% D) \% }8 v9 t  set-current-plot "Totals"' _6 G1 }. f/ B4 R
  set-current-plot-pen "turtles"
" s0 c+ j& s, K$ K2 i- Y  plot count turtles' k0 S; i$ _( [  N& E0 E" S
  set-current-plot-pen "grass"& W7 o& r% `2 g! r0 n- _
  plot count patches with [pcolor = green]3 f3 H3 y5 l$ A: L7 ?- T5 w
end
( u/ T4 P" \- ?4 u: y6 x可是运行时提示no such plot: "Totals"
6 e, e( O8 e5 l6 D6 i" K% Y) }, Q0 herror while observer running SET-CURRENT-PLOT8 i* u: k" U3 ]1 N
  called by procedure DO-PLOTS" l5 m) y0 M1 {3 W7 h) ~; M
  called by procedure SETUP
5 T6 y9 j. a) p3 m# w; A  called by 按钮 'setup'
7 p5 g- l. A' Q6 K6 n9 {4 B! P求大神解答啊
发表于 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 3 d8 E( L) i) I! o( o7 f
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-16 00:09 , Processed in 0.029341 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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