设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10577|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- @2 ^# u; V& b6 J2 K% C- b5 oto setup, z7 h5 A5 j8 N1 x: {4 A- a
  clear-all5 L7 I/ ?$ x( K  j
  setup-patches
+ b* N$ Z/ `3 \8 a/ o. e5 |  create-turtles 1006 K) i. l2 ?& s$ y" G5 v! \
  do-plots) p* l2 p: B! D, A( x
  ask turtles [ setxy random-xcor random-ycor ]% k- L! ~& @% }' C- `' P
end; m7 c. |1 J  w+ D% q0 T9 {6 A
to go, A0 R! ^" n( A' z
  move-turtles
! N( s2 ]" A4 h3 c: m% \  eat-grass
$ e, l8 {) e% I9 |" C- D  reproduce
- ~, n3 _) y( t  check-death" ]7 J, q8 V7 i  d1 X3 B6 F: X+ }( x
  regrow-grass
4 v. J3 C, k0 v/ U5 U+ z" ^6 |  do-plots
$ b1 w+ ^! k: d) ~* Qend
) C" [$ p! s. ?. {  O2 }! mto move-turtles, p6 ~# Y+ j: U. h4 m+ n
  ask turtles [
. z$ a6 q, `( Y    right random 360
( E3 y9 G, e0 s; s! D3 F1 g/ {* i, t% K1 F    forward 1. @  _% `2 q% _) x; j: ?+ l" I
    set energy energy - 1
& t, H/ u- q; o    ]9 u! d; g* I- s0 v" r
end' x  N6 d8 m9 m2 ^) g
to setup-patches& ^- L) h; X8 i2 y. X
  ask patches [ set pcolor green ]" R- P$ E" {  Y- x" Y5 \
end
+ ?( N8 s9 w) y! E! u; l" {to setup-turtles
1 T4 ~3 N, T1 H# s& ~. P  create-turtles 1003 p5 O4 M9 r7 z5 @3 n
  ask turtles [ setxy random-xcor random-ycor ]9 X) u: H5 `# W: _) h3 Q, v0 w
end0 D6 {- `, _' c7 B+ z9 y! Q
to eat-grass" {7 J+ w  L% I6 r6 s$ I
  ask turtles [
% O% `, p7 j% ?- |4 P3 _; J# G, c    if pcolor = green [
$ o; K1 l' F8 }5 O8 J3 x+ I      set pcolor black" J  @. E/ ^& A" u- ~
      set energy (energy + 10)3 \. G) ?0 Y6 f$ w% S8 z
      ]" f; @! n3 w( |5 U( @
    ifelse show-energy?8 n! w/ W+ l1 N: N1 j
      [ set label energy ]: S& t" r; f- O8 p) k( }2 t- b
      [ set label "" ]
5 v$ v( z5 q( ~7 C5 e# e    ]# b# T6 R0 o9 S! y# }6 g
end0 D1 {( n% v8 F$ L* O
to reproduce  K8 D0 ^7 X) u4 Z- @& R- H
  ask turtles [" H5 [$ [, B0 N7 z" Q" y* n
    if energy > 50 [
$ z4 c  p( E# x, _9 L      set energy energy - 50* i+ Z- S, b. J8 ~
      hatch 1 [ set energy 50 ]
; m+ i* n" ?  p6 X      ]/ k/ S, y4 S, u
    ]
' ~1 a  c# a" X- z/ J+ s- cend& Q# Z, v, c; Z; i) C) J
to check-death, L' W" u. M; a" `: f: U$ z( r
  ask turtles [' f$ |: h8 k  }5 W, m0 ?
    if energy <= 0 [ die ]' g& S4 O3 S" {6 E7 b
    ]
5 h* ~- ], h9 V& i& B. S: z8 H+ T- vend) y5 C: @9 Y3 M/ D
to regrow-grass
1 ], n2 l% \+ p+ u5 X4 [% E  A  ask patches [; A% {. U+ C3 l
    if random 100 < 3 [ set pcolor green ]5 Y3 e8 f! V: {
    ]7 J1 k: m( S3 f( ^% s
end
5 @$ W3 d' ~5 c, h) Lto do-plots
" J! x: T2 x" _9 l1 j3 [( f2 N2 k% p  set-current-plot "Totals"% |5 r1 ]( ?7 ]! L8 @
  set-current-plot-pen "turtles"1 f) P8 E8 o( q; E3 h' w
  plot count turtles
' m, F! b1 W' p  set-current-plot-pen "grass"; T7 S# A+ ^. o. i6 H. ^1 V7 \
  plot count patches with [pcolor = green]3 ]1 m# n$ [. h8 ~
end
; D3 \& [- K, Y+ Y2 s可是运行时提示no such plot: "Totals"& z! o+ i* [/ u: x( M) G7 _
error while observer running SET-CURRENT-PLOT% R) c" V0 ~* }! P; \/ q
  called by procedure DO-PLOTS5 L$ B; S! |$ m) S8 H$ I2 E
  called by procedure SETUP; ^# \" X6 E3 R  g& w$ y* E4 b
  called by 按钮 'setup'2 @$ z+ z" N, @- b& }* z) u
求大神解答啊
发表于 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 p4 z2 \6 E9 S" Q2 ]
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-24 11:49 , Processed in 0.018769 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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