设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12049|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]# l/ M% A$ m2 I; u. y1 _5 s
to setup
# u/ ^2 O. g# Q- x: E  clear-all
+ x8 j9 i' r2 q5 y! z  setup-patches
: w6 L: m% R# K1 k% M  create-turtles 100
& h- M3 r; r' B  do-plots- M/ T% X7 z- w: G% f: N' z1 Y
  ask turtles [ setxy random-xcor random-ycor ]
) ]# G" r7 m0 N, V$ y/ R5 Dend
7 Z+ ?& w* z  xto go
$ h8 X8 B9 c. E5 P4 U& B  move-turtles. f( R1 \( O9 o4 T
  eat-grass
# ^  t+ t" F: s; J3 T' n  reproduce/ E- _; q$ ^3 A8 F2 D$ \  I& y
  check-death
8 W6 Z. u+ d$ @; b& l  regrow-grass( K, W3 N2 C# _/ w7 L; O
  do-plots: D3 g/ y1 t) k" B% A; @3 x
end' b1 h7 ]0 P) g
to move-turtles
+ F% l: Y+ c4 X; h! `8 L  ask turtles [* q! I4 {9 @# [0 P( n6 p
    right random 360& |; ~" n& w# z/ V
    forward 1
& P; R( T) S8 l/ F$ ~$ _$ o2 B    set energy energy - 1
6 Z. P% n- D) G$ w8 P    ]8 c( i2 U4 a7 b: r2 j3 k/ o
end4 ?5 |& `9 ~+ S  I6 z5 q9 M; c3 L# X
to setup-patches
! s( P- a; {; ~* w( r% j: X3 ]6 u  ask patches [ set pcolor green ]
3 l- C( w) C4 h0 zend- ~$ L+ f$ Z. l% V+ n5 b
to setup-turtles
6 S: o) ], ]9 d& O+ p6 p  create-turtles 100
( w6 B+ H* U( f3 f9 N4 p  ask turtles [ setxy random-xcor random-ycor ]
4 y% M: k  E/ h" x5 Wend
7 W+ E* x- I( L  h9 ~/ n5 sto eat-grass) Z% C+ X) Z. j' Z2 n$ ?
  ask turtles [! q: \. A" Z' q2 T: V
    if pcolor = green [5 C1 D2 q* l; y5 Q5 R
      set pcolor black
4 @5 f& C7 k$ K) b; n# c      set energy (energy + 10). R% ?; _/ |. I& u' V
      ]
4 ^. N6 K! ?& ~7 [    ifelse show-energy?, f9 E3 M5 i7 H% g) v% k
      [ set label energy ]: g+ x$ o$ h6 J. c+ x, ~
      [ set label "" ]
; R' v/ K+ z) D8 f6 L6 T9 {    ]
1 j. H2 w2 j* t* J4 Vend: Z9 w. E. }1 x" d+ c% K* |& U# t
to reproduce5 G1 F5 u5 [$ n5 ~, ]9 y3 o* W4 g
  ask turtles [
# J) G% k# l# Z! W" p; z' F+ [" P    if energy > 50 [: D, w' T; d8 Z+ n* m
      set energy energy - 50& s, l1 G/ Y0 _3 T8 y
      hatch 1 [ set energy 50 ]# M9 n# r8 D% J( ]1 E1 K2 l
      ]
: G/ O7 p/ O7 S5 A8 F3 r2 p. F    ]
) Q% G, y* W& @, K1 `( P, gend8 X! h3 p$ K) m1 o. }- f* w6 B
to check-death
% ^; g* z1 {+ P) n" W( V4 W  ask turtles [
( e7 y) _% L0 C# d1 I9 \4 ~. M* r    if energy <= 0 [ die ]
% e) M9 w1 W5 P+ f    ]
- I* ^3 J2 V5 h+ g8 [& Jend
% I: n6 P7 k3 C; s! uto regrow-grass
5 G! R; z! ^3 [: o( S  ask patches [
) H9 V3 K# w/ m    if random 100 < 3 [ set pcolor green ]
- i  A" h! A: M$ h    ]
+ t; R) Z/ C# \6 x5 E) m+ b5 Dend
- C" D6 N" A  z; o0 h4 tto do-plots
6 _( s/ m8 y  u+ f' {8 l  set-current-plot "Totals"6 r$ y0 [6 @4 i, p2 G) V
  set-current-plot-pen "turtles"8 b2 h8 r* ~$ x: v7 y6 n+ b" E
  plot count turtles4 T5 Q. {3 N5 r) x/ M4 K) s
  set-current-plot-pen "grass"
, D! X8 _% x4 X% }; a  plot count patches with [pcolor = green]6 @# I( Z3 b& l7 r, c
end
' m4 L" d5 o$ ~* x- A  r- w" E可是运行时提示no such plot: "Totals"* e/ t9 i7 }/ L
error while observer running SET-CURRENT-PLOT
' Z% V: G) H, ~" `# S# ]5 q  called by procedure DO-PLOTS
: a5 |1 c+ O/ G% {# A7 C2 _  called by procedure SETUP
6 M: Z; ~$ Y& s0 X' P, s# m8 G  called by 按钮 'setup', d3 T2 q$ H9 n# 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
8 ?7 W$ L( H+ O) G0 y* j# {建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-22 19:24 , Processed in 0.015342 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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