设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11424|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]- @. g+ d, X& h* a
to setup' j% y( u0 g8 V0 P8 B% X
  clear-all
: _& T8 d2 d% _  setup-patches
* ]4 E" A+ _1 t5 Q  create-turtles 100
2 ~( X4 V% d- `# r$ e  do-plots
- n1 N( z4 x+ m  ask turtles [ setxy random-xcor random-ycor ]
( D) l2 E) H! E5 v# kend2 Y9 s6 b! v; u. Q
to go
0 x# T; X# ?% t' e1 \) C  move-turtles
- E2 Y* k: h4 Y$ D  eat-grass
7 K! N8 D& B1 o  reproduce
; b" [6 h9 Y) [* t5 s  check-death- x  Q4 \  V  p5 l1 E6 o6 A4 v
  regrow-grass- R2 E% r% V  |6 @
  do-plots
4 c/ o9 |4 \& ^9 n/ [1 qend
( ~2 B% P4 W: Q3 M' S: G6 lto move-turtles
% Z+ Z/ g) Y3 s1 Y) p$ d( |  ask turtles [* S# u  I% J! r; P. m5 r
    right random 360- Y' X% u  V( X" z/ ~8 f
    forward 1- A4 {! [) e7 o3 c1 m6 j
    set energy energy - 1
6 `' w8 r& A% ~" m  L    ]
: ^6 C0 t. n6 `# U/ E$ wend) z5 C* @: G! r& L4 K
to setup-patches8 Q4 m! h( m6 M8 v- ^
  ask patches [ set pcolor green ]4 }5 X* w) M" X
end
" k$ F! j/ P8 fto setup-turtles
1 U1 o8 a) }, h. g, C1 ]  create-turtles 100* I- ~0 B8 |; R8 q0 p+ G  Z8 o8 u
  ask turtles [ setxy random-xcor random-ycor ]9 s9 @: I. H' y1 [+ Z  ~2 b! ~
end2 D8 v& w$ q5 v9 Y2 _8 j& g
to eat-grass- O( r+ C. W. ~
  ask turtles [
# s" s) u8 }% d* l9 a. w    if pcolor = green [: A  z" w$ b, `7 B3 o* m
      set pcolor black
& J# f2 h9 G! h3 a2 h      set energy (energy + 10)1 m  o+ Y6 n0 j* i/ ~
      ]
8 q2 N% \  J3 w) z" I# |: |. r    ifelse show-energy?
: q$ R0 g2 h- x8 T  k4 V      [ set label energy ]
  G7 `3 q) Q; o; M; y& Z. R1 h      [ set label "" ]
: D: M3 j6 L. i5 i% r    ]
: G, q  F  M+ o( ]. U1 O! aend$ ?0 Z% m  N& v8 {; M: L
to reproduce. p8 w/ E' j! f: \$ w, y$ d9 R1 V
  ask turtles [0 O( h) a* `5 A* J1 V. M2 W
    if energy > 50 [
3 S, j9 j5 S5 H3 O& q, a. g3 {- I      set energy energy - 50
) a  t  v% o- t0 m0 D8 T. U      hatch 1 [ set energy 50 ]: h- e& Q# a2 L6 h
      ]9 u/ @! U9 a& O3 g
    ]# U/ m$ ?- R, p) M% {- N
end) E* Q. e  y, j9 M% i2 ]; M) ]
to check-death
2 d9 x' n. f9 o, o  ask turtles [4 Y8 M1 x' J9 ?. ^9 b/ j" _7 ]
    if energy <= 0 [ die ]( y- E9 h3 M! V6 P6 W0 }
    ]
- m7 C* a' {* K  R8 Xend2 V/ ?. t- i/ v
to regrow-grass5 |# f2 X3 v4 M5 P
  ask patches [
6 M8 e( _! X  Q, h- A) ~2 a    if random 100 < 3 [ set pcolor green ]% \) N: L# D) D. _- F
    ]: m3 v; T  t+ ]
end3 G* q) G6 C8 k+ H  R$ K
to do-plots
7 i" r7 c7 t! Q+ C- e% o  set-current-plot "Totals", o2 Q# Z8 u) j/ J" c! B
  set-current-plot-pen "turtles"1 D; e* `3 }: j: D& W# B7 y: `
  plot count turtles( R$ K( j' H1 t& R, E3 ]6 ~% R
  set-current-plot-pen "grass"
8 I/ R5 z& s) U5 l6 b8 T* i" b. H  plot count patches with [pcolor = green]
! f! E8 P# ^! b. gend
  C" {# f& h6 E( N可是运行时提示no such plot: "Totals"
/ Q, S, W6 P) V4 r' t1 ~error while observer running SET-CURRENT-PLOT# `0 c' g' q0 m2 A$ ^
  called by procedure DO-PLOTS7 g* w% X6 q- ?5 s9 A1 _
  called by procedure SETUP
$ S  S4 _% T- H9 I* |1 z8 r  called by 按钮 'setup'$ z+ p8 g5 V( v4 |4 L* [
求大神解答啊
发表于 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
  a/ {* Y/ F% P% B建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-28 06:15 , Processed in 0.018275 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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