设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10691|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) T3 M- j) J* J7 [# E% E' p+ T% `; uto setup
, |3 c- S: }2 s/ _6 u7 w  clear-all
2 i$ c! a' w- D% O8 x4 f, A  setup-patches* N( m0 L. Q' a& \$ R
  create-turtles 100
+ _4 H/ b. ]6 U5 w2 O2 G1 Y  do-plots0 L) q7 p8 m5 x4 Z; Z; u
  ask turtles [ setxy random-xcor random-ycor ]" Z) \- N" [/ S2 M5 k
end' o& F2 |- Z6 i
to go
) B$ E% o) ]; f  f* W0 [5 G  move-turtles
& z/ }9 @$ W# s  eat-grass. b: P8 r: n1 A" ^% V1 I! v
  reproduce+ K- t. y* g) K
  check-death
9 E+ C! Y3 O% j" v5 |  g, ~  regrow-grass
/ R) |1 m! h; V" \( \% G  do-plots& j% j: _+ x3 d1 D  y$ H# r
end
$ y7 K; p% K5 |  [9 d  Eto move-turtles* r) s' }- o8 ^0 j8 g
  ask turtles [
+ @" t3 ?8 D3 V2 T/ q    right random 360
) U5 z4 m% q0 B/ b8 L$ M1 O- s    forward 1
5 {. b3 L" g$ J7 W% V    set energy energy - 1
  `- s$ y5 [* Z$ N    ]
: v. X$ a& N! i3 {; Y% Y- Iend
, m! P. i4 |1 K9 nto setup-patches+ g* Y4 y+ {% N2 x/ x3 G
  ask patches [ set pcolor green ]
, j7 E9 O( W1 C/ G4 g' B+ mend) L! A# h; q1 k, r3 ^' v
to setup-turtles
+ w" N  F' r$ z1 t  create-turtles 100
* g7 ?8 M+ Q/ f' z2 t  ask turtles [ setxy random-xcor random-ycor ]
' V3 z2 ]3 V6 d5 I, M, Bend
9 P$ w" Q7 g3 B$ P( v2 kto eat-grass
: }2 O" {( c0 y4 [- z' N% ?9 h  ask turtles [6 c( `/ c8 O/ T3 F4 f
    if pcolor = green [
. u* b0 ~0 _8 Q3 I( Q1 \      set pcolor black. T- c+ w) s* O/ Z0 r
      set energy (energy + 10)0 ^7 T0 H# X& y5 p
      ]- I3 H& z1 o) V( V; F  u
    ifelse show-energy?/ O2 c5 Z) j. N9 J
      [ set label energy ]
& ?7 @* y! u" H3 ^: ^% \( l/ c2 J      [ set label "" ]# [' @/ s8 N) S" w) H" t
    ]5 y; B( I9 {$ [9 \
end% j- K6 g/ }, T. B! t! U1 F4 s
to reproduce
6 q( M3 B0 N8 o: M  ask turtles [
7 k8 _& }- W7 C5 N! K: d    if energy > 50 [
1 ?) y1 O* i8 W8 J0 x+ M* u      set energy energy - 50& X8 O# ^( n. B5 N0 ~
      hatch 1 [ set energy 50 ]+ V0 }; `) g; F! _, K+ R$ j
      ]: P7 U: A8 d4 W8 @1 G' J+ v
    ]
: A3 A6 `+ a% X) tend, ~; _' n- f! D: O5 t, c
to check-death
. b3 c2 A% f+ ?  ask turtles [+ S% H5 W9 c. J; U
    if energy <= 0 [ die ]
3 k2 l; m, f: Q9 }    ]* l9 x& r: x" R& v+ ~3 c
end; U  ~6 \( V7 T6 m. U
to regrow-grass/ }+ u2 T' ^0 E: ]
  ask patches [
. H, `. k/ E) m0 b3 g: \( P    if random 100 < 3 [ set pcolor green ]4 O( c1 t9 `5 A1 f8 l6 \8 ^
    ]' D+ ]$ K. b+ Z4 C6 S! _: a
end: y! \  s$ u" |" ^
to do-plots/ F+ H9 h  C0 X) j4 u+ ]$ b
  set-current-plot "Totals"3 J% ]  ?+ R+ I
  set-current-plot-pen "turtles"+ a$ d* w* B4 ^, P2 K- C
  plot count turtles
7 R* [1 D8 u; I9 |! Z( S! D6 o9 a  set-current-plot-pen "grass"
/ J0 L0 a+ A. w' w* D7 U5 _  plot count patches with [pcolor = green]8 z1 v; M) M" {4 O2 T
end7 o1 t3 w  w* j6 W3 M6 |! Y
可是运行时提示no such plot: "Totals"5 S5 g" u7 f; m- ]' Z9 v" \
error while observer running SET-CURRENT-PLOT1 s7 J  y$ z( X0 c2 y
  called by procedure DO-PLOTS
0 i7 S8 W9 G& L$ A% J! B' n  called by procedure SETUP1 c( Y' T7 `& Z' r. ]
  called by 按钮 'setup'9 j; e0 X1 O9 n5 d$ w  B
求大神解答啊
发表于 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 4 Z0 v6 ~+ ^6 j# v" W2 D
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-4 01:53 , Processed in 0.021846 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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