设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10122|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 A1 ]) {/ b, C, \8 mto setup7 ]7 }" `0 ]! }( C: p0 |
  clear-all, P0 c9 v1 v( X
  setup-patches
$ r4 g. I! K1 q; ]- P3 |5 E9 i3 D/ @  create-turtles 100
3 r) }: l- H. w; P  n  do-plots7 B8 V6 [" D3 V# ?( E
  ask turtles [ setxy random-xcor random-ycor ]8 A9 ]$ [9 Y, K. u* G
end, K& m6 X) I& N! Y% j
to go% i% w% Q# r: {$ ?3 w' t
  move-turtles
4 d5 H6 x2 U$ Z8 X% E  eat-grass
" R! s( n& [7 `6 O5 ]; C0 z  reproduce
7 {" Q+ Q! V# z( {: A* W: D  check-death
1 e0 L( {, h+ {; y1 A6 ]  regrow-grass! q: w& x( V  B0 M6 C5 S# j
  do-plots
& a( o) x$ b+ Y( xend
1 p$ c/ d1 N2 \8 \to move-turtles
* G9 ]- r* |/ E7 @' n5 W( J  ask turtles [
9 M+ E; f0 o% h% d    right random 360
1 x  Y& Z9 j+ g$ W7 E1 m# A( O    forward 1, I; O5 y+ D: R$ V% L5 g9 Q9 `, v' u" `
    set energy energy - 1
' S$ J! W4 o  f: }4 A5 c    ]
) L+ m* b5 l0 w% l* e3 |6 Mend
* N- E6 }2 b+ N' ^- Vto setup-patches6 c# [) m& e, u. _
  ask patches [ set pcolor green ]" X9 r7 W: V2 l4 A6 i
end
4 ^/ i% G  @7 a) ]to setup-turtles
+ `! a. v% m+ w  create-turtles 100
$ C" u- f2 _9 `/ {) W  ask turtles [ setxy random-xcor random-ycor ], a; J* v' B- A# @
end
, {& ]% f# X3 w7 x+ fto eat-grass% M+ k2 }9 l( P7 e2 Q8 }. v4 X
  ask turtles [
9 N! V0 z# u- f3 q6 w# j' r( p    if pcolor = green [7 D& t  ^; L! F7 ~. z$ x6 [% a& w9 }
      set pcolor black
, T8 t8 U3 v; j      set energy (energy + 10)3 @" D( v* S' \1 e
      ]/ B, U9 B% k- i: n) w+ M/ v
    ifelse show-energy?# a' ]! b; ?4 _# U1 f: P2 H
      [ set label energy ]
4 n$ v, t+ a7 _% j! \8 ^      [ set label "" ]
* l8 k4 {; X+ L* }    ]: o: A; K& \, C9 a# `9 k' Q2 v7 Q1 d
end: H  A# E1 }0 v% Z! P
to reproduce
: A/ [3 _- |$ A" V) w2 m7 B; ?  ask turtles [
; d! L! Q; M3 V1 u7 |0 _    if energy > 50 [
% |) e% V4 u/ U7 J* f1 m      set energy energy - 50
# |7 t: t& t" A" P& h/ o  Q! W      hatch 1 [ set energy 50 ]
$ K9 f( k1 B& a$ I% \/ N      ]
4 m- x& i6 b2 q& H& H6 M    ]: l! F+ B; q/ _8 x2 H7 F4 F
end5 n  d7 ]% c/ {% Y% R3 s
to check-death
. ?  n* O% {; B! E" s  ask turtles [: n' z' O, n/ D+ n- ?, }( k
    if energy <= 0 [ die ]
5 y; V; j* j) T8 v7 _. s  `  d8 b    ]1 @7 {  w6 ]  x$ z+ a
end. _1 H9 O. `. \+ ~
to regrow-grass
' k) h, ^3 h5 d  Y' V3 L  ask patches [
: O9 u. {' Q% M% M% R7 V    if random 100 < 3 [ set pcolor green ]
8 w0 C3 A( O! g1 [    ]' _( u8 n9 A/ k% V. Y
end
# w$ K/ w7 m- v$ }9 Bto do-plots
; i, M7 \- L" T# Z  set-current-plot "Totals"7 R0 |0 o% h7 I5 y6 l
  set-current-plot-pen "turtles"' z5 R8 T% u% u. W9 n; R5 v  U
  plot count turtles
7 R+ K& X0 x  F$ n" ~3 g  set-current-plot-pen "grass"
/ |+ S! c8 d) K! k" {  plot count patches with [pcolor = green]) `% s# {- }5 V0 N
end
9 I4 a8 {1 j1 s* U可是运行时提示no such plot: "Totals"9 h& i" K, l; N. b, o) n
error while observer running SET-CURRENT-PLOT
& b# }+ b: B7 }$ W  called by procedure DO-PLOTS
8 J9 _* _# Z& y$ y) _3 H  called by procedure SETUP! e, v5 q( A3 w" h6 ?
  called by 按钮 'setup'* N$ E& N6 p9 Q, Y
求大神解答啊
发表于 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
  S1 k8 a- f' |, C# O* ]4 i建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-15 09:54 , Processed in 0.019709 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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