设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11819|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 Q9 Q1 q0 T0 J- D" X# v3 Z8 V+ E8 xto setup7 y$ d5 ]/ L, g5 ~3 \. Y6 p
  clear-all
/ p1 F; v/ `7 G( L9 V2 Y+ z  setup-patches- d% l( g# [  T; E7 q. q6 b
  create-turtles 100: T& `- G0 ~7 c' I+ L
  do-plots
2 e/ U/ ]! O/ [0 C7 g9 Y  ask turtles [ setxy random-xcor random-ycor ]; j% ]6 S: B$ k* x' m0 n
end
3 Q0 P6 c& K; ^! @to go
! i) D# H- ~2 v3 M: L  move-turtles5 |: t" f) J% a4 Z, O6 T
  eat-grass+ H' T, r8 K4 g. b) p4 y7 [# ?
  reproduce+ C- T. l* o- ^6 R4 h
  check-death
6 X! w2 C; s6 a4 O' e  regrow-grass# u" M8 g" p; C
  do-plots" f, C2 Y' m- m  ^# H
end
) R7 N0 X5 ~! v5 qto move-turtles
* V+ E% a: {, n$ Q6 i  ask turtles [
! }) U' M; j; H+ ?8 R    right random 3606 e# E! Y6 d3 R: n) q- e
    forward 19 K% e6 T9 T, K  l3 z/ @
    set energy energy - 1
/ Z9 F$ `3 C( P% z! p" Z+ C1 M" A    ]! d7 h4 H, @$ F' \' g) ?) G
end6 f4 G/ m* V5 y0 A( [
to setup-patches
7 r" r5 b* H4 S: o7 [# ?  ask patches [ set pcolor green ]( S$ P2 X% D) p& H+ {' S
end5 m3 Y" @2 F9 O3 s
to setup-turtles1 R: o3 X% O3 J* T
  create-turtles 100! S" F! [, W  Y4 k0 t
  ask turtles [ setxy random-xcor random-ycor ]
+ {# M" H: c$ w7 Gend
# U& d) s. P4 s7 g" hto eat-grass# K  Q+ V8 n* P  ?  ^5 \
  ask turtles [
0 A& j5 b; [0 e& S8 |' Q    if pcolor = green [4 h8 j" I0 o% U' ]$ X
      set pcolor black
: u8 D( y' E  E2 r$ H* X, S6 Z4 Q      set energy (energy + 10)
9 i3 b; b+ x8 t. L  @# J      ]) [# h! A- X+ ^! _+ k  [
    ifelse show-energy?
1 `" L) z5 k5 F# h2 k; [2 V9 D      [ set label energy ]: A; i& o7 D7 N5 S) l
      [ set label "" ]
" q+ ~% `' \" p8 o* \; T& I    ]
4 `  C( r+ {( D9 D* N. z: xend$ _- z1 a; E4 D7 ?
to reproduce
  L! I8 A) c% P  ask turtles [. b: G$ P# E. ^
    if energy > 50 [
1 E1 t) K6 ], @$ G9 N      set energy energy - 50" Q" n* W! \+ R/ B$ s
      hatch 1 [ set energy 50 ]0 f1 A/ Y4 x# ~( ]
      ]+ a. O# h2 B3 S$ M/ Z7 r) X
    ]
3 E" s* H# b, J  U, Cend" o% N2 c2 S  ^, A
to check-death$ }5 A; h( x  V
  ask turtles [
0 x1 t5 f. Q( E2 d    if energy <= 0 [ die ]
, Y- Q% L# j, w+ @2 R    ]: e7 {0 q/ ^/ ~/ c8 c. w" f$ Y
end( ~/ X/ i% m0 ~" {
to regrow-grass
- h2 N: ?8 }2 T& c7 k. e5 L% M) b  ask patches [
' g2 W( r$ A9 n/ l7 d    if random 100 < 3 [ set pcolor green ]
6 Q- {, i- K: _9 T: g$ Y. T    ]
6 l3 h7 V- A7 ^& j) o, S, Cend' @/ B- `5 Q" M  J) ~) r
to do-plots  b/ x7 \& E3 T  [  G; {! a1 }
  set-current-plot "Totals"
: n6 Q& {  c* X% J4 K1 ]  set-current-plot-pen "turtles"
5 \) G! A& ?( E- {3 z6 o) T7 M$ w  plot count turtles' ]$ r  ]+ B* U5 `" E' O
  set-current-plot-pen "grass"
( {6 w( d' g2 l6 k0 z+ d  plot count patches with [pcolor = green]
* \. d2 ?& N4 V2 y$ i) v* `6 rend; m7 |& M9 @5 G2 x8 y0 O
可是运行时提示no such plot: "Totals". h" ]$ i2 p- n  I' \
error while observer running SET-CURRENT-PLOT
' [4 A* p4 w, d  c4 `. G  called by procedure DO-PLOTS% G, g. ]. j" _: s1 F
  called by procedure SETUP# @% M: W: r8 K8 C( W% M" i
  called by 按钮 'setup'  j( c7 W1 L  L$ v. F9 p% a
求大神解答啊
发表于 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
9 y: j) |" J2 t2 R3 V, c) N* c建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-3 05:34 , Processed in 0.017680 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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