设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12065|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
% y8 [: W' h8 M$ h( Pto setup5 H1 |9 t$ [& O2 o3 F4 z
  clear-all
( m; ~' F+ Z# ?1 {( ]5 \8 k9 O0 Y  setup-patches! k3 i4 a1 J( F: z( [, N. d
  create-turtles 100
7 }5 }2 E% s4 p( Z6 }- p9 r. _  do-plots9 d" i" C" a8 a7 Q  \7 y
  ask turtles [ setxy random-xcor random-ycor ]
; j5 h* y6 @8 Aend
0 C* u7 \0 [- P9 }' rto go
8 P2 k" X7 X, g3 R" v  move-turtles
8 P. ?+ F- G: A4 t3 I: x- r" C  eat-grass
% ]8 K# G% \2 z  L( Y  reproduce
; N5 A: p# j' c: m7 [  ^, @  check-death
; p( D. s5 Y1 y7 ]  regrow-grass
4 i5 q5 \/ Z, X  do-plots
/ Y6 ^4 }# T! S/ e/ l. pend, \# i2 j3 r. l3 z
to move-turtles7 R  a2 B; J7 X0 {% y* \. U* |7 E6 p6 g
  ask turtles [
& S( f% u% g: V; D    right random 360
+ {5 p2 `7 v7 I  p8 v* T    forward 19 M- H  p# `! O) C* ]( Y
    set energy energy - 19 z, D5 `8 b9 d) Q# W; O& Q
    ]
1 O2 b6 [: S! |5 H0 ~7 zend
+ L1 L; P5 ~( s4 r. s2 G" m! pto setup-patches
6 g- f: ?2 d2 C: s& m* x  ask patches [ set pcolor green ]1 [* E  f+ ^2 z( O4 G
end
; W6 L6 x% ?8 ]3 Sto setup-turtles$ A% C* l2 D0 @% X" L6 X' e8 _
  create-turtles 100
3 w. D, J3 b- V5 Y7 u, G  ask turtles [ setxy random-xcor random-ycor ]
  g. X) m6 R+ x& R- tend7 Q( y  N1 \9 E  X& l$ m$ {* Q
to eat-grass* i; T! ~3 Y  C
  ask turtles [
% z# I, A3 x7 p6 c    if pcolor = green [9 \5 P) t: Z# I* }( ~8 k
      set pcolor black
: _; g& Z' n5 r0 j1 E/ Q3 h      set energy (energy + 10)0 W, Y" @! R- Y' W; ^/ F% b0 y
      ]4 z4 a9 }" k7 U" H7 B9 y8 G9 J$ Y3 t' ^
    ifelse show-energy?( l6 h7 }6 Q3 z6 S, i8 g
      [ set label energy ]
( f, V# f6 ^4 ?7 I+ k4 T" U' f      [ set label "" ]
8 o3 |9 O; p! r9 @! M    ]9 b$ F3 C9 X5 B% u; z3 [* Q
end  h  g$ P8 {6 q) ?8 F0 |+ h( g6 I( v% M
to reproduce
  P' \. ~% ]$ ^# x( F  q  ask turtles [/ n, w; d$ s" W- n3 o$ |+ r) `
    if energy > 50 [
1 s' i! A( }: o6 r7 r4 ?& O* W      set energy energy - 507 y7 i: C0 C; Y6 S  @* p1 X( S! x
      hatch 1 [ set energy 50 ]: s# P" {! f5 u9 S
      ]% F7 V/ {1 f8 V% \
    ]; s2 J- u8 F- N* `6 n5 q
end  y& A8 K9 ~! {/ M, x. q
to check-death" W  L& }" c7 k* n# R4 s6 J7 f
  ask turtles [7 A, y8 x) Z1 Z
    if energy <= 0 [ die ]  u% L1 r! P; K1 b; Q1 B3 k, }4 J
    ]
& d2 t" i% [) Q1 xend/ \/ I7 L2 s2 m$ C8 f$ x. a: v( G
to regrow-grass8 j% p9 t3 U+ W' n! m# ], }9 A7 H% Q
  ask patches [) \3 ]$ f$ v) O7 i8 A
    if random 100 < 3 [ set pcolor green ]
5 _+ ]) a' ~& R    ]4 P' b8 T9 _& p
end8 J$ A* O4 E2 N. N  A
to do-plots( a$ D1 Z2 A, J" X( b- Q2 l, S+ ^
  set-current-plot "Totals"6 X% k6 {4 N( S. b% B  p
  set-current-plot-pen "turtles"
7 I: ]- ?( [  l' i7 {6 d  plot count turtles
: R0 j6 _/ y  V  w- f  set-current-plot-pen "grass"
" H8 s2 j% U: A+ O  plot count patches with [pcolor = green]
6 R/ j* V% O2 n( U: E% F7 w9 l1 yend
! c$ n4 I8 w- o9 p  i可是运行时提示no such plot: "Totals"* x. x0 Y; O3 B7 T/ G1 _
error while observer running SET-CURRENT-PLOT1 o% J' P7 E8 W8 N" W
  called by procedure DO-PLOTS
) l( \  S# @4 y2 w$ ?  called by procedure SETUP* g; d4 O2 P. L- Q9 \2 i
  called by 按钮 'setup'
8 E. {5 f) o+ A- h# g求大神解答啊
发表于 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
0 o6 F4 X3 R* \) q建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-24 07:33 , Processed in 0.014271 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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