设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11642|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 r6 q- R  k4 m& [! i* i) l* bto setup
' P! u  ]" i3 ^$ {7 ^4 ]  clear-all
% h6 r9 X9 G6 P* I& e2 m# a( h  setup-patches
3 N) h) H: R) \6 S" w( m4 u) m  create-turtles 100
6 }; {: ^+ y$ t# y5 ^: p  do-plots( F& L* l& U% \1 q, T3 H4 P
  ask turtles [ setxy random-xcor random-ycor ]3 Q3 `3 m3 q) j- F$ r3 F
end
  n1 _% J, t6 i4 d, a' wto go
3 ~6 r' l. y# |: K  move-turtles8 _- F: s/ D6 I" v9 Z6 `  K
  eat-grass5 a& ?0 i8 i# @% T& M
  reproduce/ i$ N: {7 [1 e) I- G. D3 I
  check-death; l# e& X2 b9 z. f' M
  regrow-grass
+ u$ A3 `' C. g) |2 R! i, F  do-plots
. ^0 L' n+ r  ]. w4 z1 x% Mend! P- w( X, q1 j0 H
to move-turtles
7 p$ K+ i% G  I8 Y/ l/ X# O  ask turtles [+ m; Z1 n1 Y5 e
    right random 360, |, @2 B/ @) s, `2 d0 a6 e
    forward 1
* y8 w2 B) X" F# ?    set energy energy - 1
) p5 p5 w8 E3 D, X    ]
; I( }8 l6 {2 K9 t% ~end/ O3 X! T; {8 g$ g6 G; a5 W
to setup-patches0 |/ ^9 d* x, D
  ask patches [ set pcolor green ]
8 _6 A2 |# A' N. e) b' Gend# n9 t5 R; r4 \1 _6 |
to setup-turtles/ B! L5 K5 P' k; u* X) ?- S8 j
  create-turtles 100/ G6 q3 V% R7 V
  ask turtles [ setxy random-xcor random-ycor ]5 z( v- u+ ~8 ^7 b7 T
end, W! k7 s' T! H: q, J
to eat-grass) l0 c, W8 a; _5 q
  ask turtles [. g# }) b! v3 `) C8 ~4 c
    if pcolor = green [+ G0 G& ]- [* L+ ~& W. Z& s) h0 W
      set pcolor black" u& z' O! s6 z
      set energy (energy + 10)
/ ^/ Y8 c% ~4 V' e. K4 E) t      ]& _+ `1 Y6 Y2 k6 s2 ?
    ifelse show-energy?
9 R: X! l2 T9 ?+ N0 b9 u) \( |) Q      [ set label energy ]
1 C' h; h: t/ ?8 E) \      [ set label "" ]# u) H% \( W$ e# p" V: o0 a' C* D0 ?
    ]' N. v( r  y* d0 i
end, v8 \' R" W3 ~# _) S* ^
to reproduce0 u  p1 D  M+ u) e; c/ h! W
  ask turtles [* e$ ?- P9 c* G+ X! ~
    if energy > 50 [
) I6 B3 f$ P1 w      set energy energy - 50
0 O1 |" R9 ]+ i& E5 b# M      hatch 1 [ set energy 50 ]
  g6 a; m$ H# @, E7 _; d4 {3 i  W0 W      ]
1 s  J4 V# C+ k" O; Y7 X% I    ]
) \5 w: j+ N2 E% g. R$ Iend0 [$ m2 s% {5 y- E
to check-death" C6 \% n! g$ N  h  n% h
  ask turtles [( M6 @1 O9 J: P! W( ^- M) a- E" [
    if energy <= 0 [ die ]& F" J. ]0 }3 \6 }- F4 B* p( g$ h
    ]
" T+ r+ i* o0 D' [, Rend
: K! }) A% T& K& [: {1 wto regrow-grass5 P5 X* |5 ]% X0 q
  ask patches [
+ D# V6 W$ l3 v, ?9 ]4 B    if random 100 < 3 [ set pcolor green ]  V7 p! z& Z4 j( d5 v5 y
    ]) h2 |2 P' ~# ]' z; D$ B
end
# [' G+ c4 I2 X. L& t  F4 m8 pto do-plots% X9 N# V* o3 U# d& l
  set-current-plot "Totals"6 V5 M  x: i8 a) u- Z
  set-current-plot-pen "turtles"
3 M; h# M; t, p  plot count turtles: D8 ^7 i; `7 c2 n; m, I! V: b
  set-current-plot-pen "grass"
; r1 w  S. l2 g5 ?+ Q7 ]. P3 g7 r  plot count patches with [pcolor = green]
, c$ s' m9 W' P4 o) ~end
& \5 |1 a: a/ @/ m  E& h5 |2 m* j可是运行时提示no such plot: "Totals": z/ k1 N' u! O
error while observer running SET-CURRENT-PLOT
# V5 z! d$ U0 T& |$ d+ v# O; K! y  called by procedure DO-PLOTS: i$ b- E8 w6 k/ u
  called by procedure SETUP( k5 \5 D% o9 V" F; ]: U; z
  called by 按钮 'setup'
- E. e- \+ K" _9 G$ i/ F4 T* D( 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
* f. m5 ?' d  _0 L: [0 }7 z建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-16 09:48 , Processed in 0.015888 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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