设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10383|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 p/ n2 e# k! M+ d/ L1 [  s
to setup
$ f& Q+ V8 P9 ]4 Z, a9 m  clear-all
' A1 c1 M5 N; \( ?; L+ r  setup-patches
1 v' F' V$ ]* _; E4 q5 b  create-turtles 1004 C3 X. O! j% s; ?8 N) j# ?* g
  do-plots
. ^. c' v# T2 Z7 N) m  ask turtles [ setxy random-xcor random-ycor ]
: t* t9 |" c, P* Mend5 {% n3 G6 R% b8 h0 g
to go- z6 S! ?! M, [. p- h7 n
  move-turtles; T9 e, z1 N. [0 D
  eat-grass' M6 u0 E: Z7 U) C5 L( u
  reproduce3 B6 [7 P" y( D% o& u7 Z+ B
  check-death# I. p4 k* [' N; a+ [% J/ [
  regrow-grass
8 `( e$ }7 O+ t# ?# x9 e% M6 ^7 u  do-plots- h! X( K# K1 s# F: P/ T
end2 A6 [5 ?4 S! h2 ^
to move-turtles
- l3 W# T8 T$ p, A2 ]" N  ask turtles [
  u4 e( q2 x, Y- V5 w7 w    right random 360
  _" T3 D: j1 `. [/ z9 }" Y    forward 1- Q2 s1 V& K/ D  W9 S: w% X% r
    set energy energy - 1
+ M2 Z/ J+ \" T3 I. r. n# S    ]
) V2 t2 I- {  V6 a5 n+ H' dend( {) M  N2 _0 H2 u/ H: r
to setup-patches; x! t0 U% ]5 g+ ^/ y
  ask patches [ set pcolor green ]
7 ?1 k3 I1 V( A$ R8 n$ M$ Uend/ r. m1 Z, b: L  a/ X& N
to setup-turtles  q) a8 _: _. ?
  create-turtles 100
4 p, I, {) |1 i' i# \; c$ G7 \  ask turtles [ setxy random-xcor random-ycor ]
% h; C/ j! q) U3 X2 {/ s; e" ]1 Mend
8 y: b" G2 B2 o2 l0 }to eat-grass
( D  u$ S$ t9 P! ~( ~: q  ask turtles [
: l9 @: l7 B- Z5 t    if pcolor = green [5 z9 C/ t% t' _. @# S" @
      set pcolor black$ ^) q- Q" K1 N4 _+ ?
      set energy (energy + 10)7 C/ ]4 P5 q  [9 m2 Q
      ]0 }. V# `) ~$ l5 J% @- B
    ifelse show-energy?) ~: k, A) O8 n) a
      [ set label energy ]
2 r5 B) k  C. }7 X, g      [ set label "" ]
6 D; Z$ Y  ^7 j' ^    ]6 W4 V7 P3 v! W: ]! P
end4 b" \$ p) R" D: f9 D8 e! \
to reproduce4 B; w) c# @' d) p
  ask turtles [
& \& s( x5 j, B& x. ]  G* t" a% x    if energy > 50 [; f: M1 i: P- G
      set energy energy - 50
1 x* t: Q( k' }( v( r/ g, Q/ b      hatch 1 [ set energy 50 ]
6 ^1 S8 X+ M- Z      ]4 u% w# g% R& B! I7 f9 {5 o  p. U
    ]
. I9 g) W( @+ y# W+ S# N8 w8 Xend2 I: g! `  F/ a3 s
to check-death& r. _) x) z  h6 h1 |
  ask turtles [
9 T! ~( y7 b  b    if energy <= 0 [ die ], L; Z  M$ M5 @% |* f$ M, r$ D2 O
    ]
! j4 T; [, l" t) Tend0 x# M+ w( V' z% K* o' v
to regrow-grass# T( D2 ?; k# c+ ~
  ask patches [
2 C4 c- [! {4 ~    if random 100 < 3 [ set pcolor green ]
- w7 \# J- ?7 h+ _  y8 `' M    ]
# p, l( i" {. o5 G9 A3 t: f0 ^# x2 `end
- A' }3 C" M" T- ?; Hto do-plots
, a4 L- C$ k5 e: @- j1 b- j' `# ?  set-current-plot "Totals"3 o% a$ D0 c8 j6 e  q
  set-current-plot-pen "turtles"0 T" u. f! D8 |+ \* m6 v& b1 T0 E
  plot count turtles
8 v' [/ Q8 n, o* O' Q  set-current-plot-pen "grass"- |( @+ I7 l6 r! K. I
  plot count patches with [pcolor = green]
7 W, R2 t4 o2 R9 Nend: V: a0 k: p# a0 [' K# N
可是运行时提示no such plot: "Totals"
5 T/ {8 B6 t- G3 [; t2 [error while observer running SET-CURRENT-PLOT
, a+ R( m( O5 j0 V7 |  called by procedure DO-PLOTS, @) |' V% R7 Z( r2 k3 r
  called by procedure SETUP. p& j" d& c/ J3 {
  called by 按钮 'setup'# o, O! X, ~8 T1 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 * l- Q! C4 ]# B  g
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-10 05:21 , Processed in 0.020726 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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