设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10168|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; W  B8 G9 k, p' q# ]) c. t* Uto setup$ k. Q6 [) K: T  \) |2 [3 N% q
  clear-all9 b1 v& P2 s) o! A
  setup-patches: g, A% }) j3 k% s* O! O0 U
  create-turtles 100& i5 n3 g3 [& ^  J* |. L( ^
  do-plots/ m+ i5 C9 b/ _: Z
  ask turtles [ setxy random-xcor random-ycor ]
9 X* f0 D6 p9 Z/ q+ h  gend
, s. s2 E- [7 \7 Y) |4 L3 cto go
) Z+ T6 v1 Y" M( Q; s6 v- w* s# {  move-turtles7 Y# G" H  i' G2 U  N, h
  eat-grass3 A' S5 W4 M9 H& @1 j/ L8 i' H
  reproduce
3 ^" W4 L/ ^* L3 K- q  check-death
3 f" f& D. |: |  regrow-grass" P. Y% V: }8 ^. }3 [2 x5 v  w
  do-plots
, q8 P+ Q8 A5 H9 C2 [end; [3 u, W, C9 b1 L) ]
to move-turtles' ]! F' H; E) r. t  @$ `8 a4 E
  ask turtles [
6 n/ a& L2 G. R+ R4 f! n0 g5 X7 Z0 ?6 I    right random 360' {( {- h% C0 a! ]
    forward 1; z+ o6 }6 e8 \; e
    set energy energy - 11 m4 n$ a% p. z0 _5 J1 H
    ]
0 t& z' q/ o, z  M; r( [end* j# c( R% u9 B/ n6 U4 Y# ]
to setup-patches! V/ u# N# H- a
  ask patches [ set pcolor green ]( T" R& C7 R6 I. L+ z4 @6 f+ h8 b
end
' u0 e7 W. J  Fto setup-turtles. e# \6 i# v  d2 e( V6 y
  create-turtles 1005 v0 _% g: ^# K, L+ n
  ask turtles [ setxy random-xcor random-ycor ]  A/ m) }! A" ^! x
end
5 H: B) Z/ K! ^2 t, P' B% nto eat-grass, L- ^, z2 }' o2 x" z
  ask turtles [
; P; v  P# e& U) J: _, B. A    if pcolor = green [: B# F. e9 ]7 q( }8 R# o
      set pcolor black8 q# w- I1 s+ C7 ]
      set energy (energy + 10)  O0 P0 @* t/ M% |; I
      ]& w, Q2 W! U" K) G8 \/ G- K. t2 P
    ifelse show-energy?5 [! y3 W" m" I8 g
      [ set label energy ]
' c# t. [2 K) c9 S      [ set label "" ]
+ U4 p) D( o& u4 j    ]
, w: f' E! V, `& O/ Z( Iend
8 Y( i) Z- X$ I6 A$ [to reproduce
$ \% f: |- V' E" t# b$ {0 `& X  ask turtles [
& g! n( ^1 ^  u2 H2 }0 B    if energy > 50 [
/ x* U( Z. m( |6 t  K  g      set energy energy - 50
" L7 o& Z" P, G8 @* g& @' L6 l      hatch 1 [ set energy 50 ]
' Y: w! Y  T" ]' t, Z" i      ]
& Z5 }" E, F* k, s  I2 o* V' d( n    ]8 x9 ^3 `& \' n' k1 W/ Y4 g
end
) l5 |( D. b" n; j+ e( Hto check-death
# j! ~+ h! C8 p& b  ask turtles [
& V/ F$ e7 t2 e& ]" C* t- J    if energy <= 0 [ die ]+ \- W- V  n5 [: S
    ]
2 X& b* R6 |4 u5 ?end
+ Q( p# x& s9 R+ X7 Vto regrow-grass
1 V7 @, [) H" g+ w" z$ D1 [2 f) G  ask patches [
4 ]+ w0 D% b' d    if random 100 < 3 [ set pcolor green ]8 Z8 C+ f' M( y6 U3 x. z: U* ]
    ]1 B  V& a0 V& K2 ]4 }' b, s
end
" J/ k9 E$ T% S+ g2 yto do-plots
  x" B; ?1 p0 P; h1 \, Z% T0 R  set-current-plot "Totals"
% A3 a  q+ {! E4 N: B. v& }  set-current-plot-pen "turtles"1 P* j" L' q: p% ]6 u" M4 q2 w8 R
  plot count turtles
9 T' M  G5 z9 ~8 j& ^/ b  set-current-plot-pen "grass"
& C0 P4 y; M" w( U  plot count patches with [pcolor = green]
5 G+ m- X! L7 O2 D+ Xend
3 K3 n9 z4 I: |' v7 {2 N& K6 I可是运行时提示no such plot: "Totals"
9 R7 Z- |8 W. x  p% b* Lerror while observer running SET-CURRENT-PLOT
9 I& O1 e" }! t# M: z  called by procedure DO-PLOTS
, ]; v) @' ]# o- ]. i4 W  called by procedure SETUP. t- y+ p  v! {% p3 S
  called by 按钮 'setup'% i) |* i+ I. M9 ^- K
求大神解答啊
发表于 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
- A9 A! P6 x& Z0 |建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-20 03:01 , Processed in 0.020866 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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