设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11339|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ E# }: P6 ~3 x; D5 Z; n& i8 x
to setup( l" L0 c* @2 Q
  clear-all
( f: l  M1 ?; c3 F0 i+ X  setup-patches
! J* A+ m2 P  r2 f* ?  create-turtles 100
2 k6 k. i: W" h  O0 |# V% C( A6 ?  do-plots
$ \% O' u$ V  w  `# l9 v6 t  ask turtles [ setxy random-xcor random-ycor ]# g. A: P9 n4 k  c* x
end, Z6 H' b4 Q4 z, v5 Y
to go/ L8 n. @3 f: M0 g1 d. y1 A
  move-turtles
5 i4 t! @- r2 g! V$ f  eat-grass
7 E# \5 T& D3 }/ F7 O1 e3 I$ D  reproduce
* J! S+ _1 U( {) l" a% \  check-death$ c! S1 A: X" j* P+ G+ y5 ]' o& {
  regrow-grass& ~% T1 R7 z- f
  do-plots# }! C0 O0 J8 Q! j9 `; z! P
end/ z# v7 m# }" Y$ U8 t$ z' h! ?
to move-turtles
1 Q, \6 E" w7 L& h/ }3 Y" }  ask turtles [
6 _# r; b% ^, j9 c- a    right random 360/ c5 s( B% i3 T4 N
    forward 1
9 P& e+ j) a1 {9 T- B  t& T    set energy energy - 13 E8 ]' l" n8 o2 ]7 l
    ]
4 h7 t+ j* x8 n2 e- aend
4 n8 k* J0 V* }6 q7 d) P+ kto setup-patches
$ O5 Y# t" ]6 _8 i2 e$ [, |  ask patches [ set pcolor green ]
2 ?- t; j$ L, K5 _. aend
& X( N& h$ f6 T% @5 K( uto setup-turtles1 H0 O* D' c' H* |4 n
  create-turtles 100
! g& \) u* Q+ D$ R& [  ask turtles [ setxy random-xcor random-ycor ]! a0 s& F- ~5 o1 B0 i9 G' }, ?# j  t- U( S
end( G* }# ~. z0 ^% d8 _# b
to eat-grass$ Z4 R! U0 f% F$ j( c6 Z
  ask turtles [( @* I; P# ?8 T2 \4 m# Q
    if pcolor = green [
0 X4 W' R. M8 M) i      set pcolor black  R* q/ s: a( p" [: [
      set energy (energy + 10)
% D; d* N& A" }; _; d      ]$ I3 G' r  D8 }& j7 U$ h
    ifelse show-energy?, N3 b- ^4 I% E' }. m: ~9 x
      [ set label energy ]
& U/ u' q& n  Z+ y+ r: G" {      [ set label "" ]( D! Z1 }! y& @* n1 g0 p# S+ ?
    ]
5 d5 h9 k+ R$ R: p( }end
( F2 r) k- \7 d$ C2 V2 ito reproduce( n- B7 m7 O9 N) [+ X
  ask turtles [
" v9 C7 `; z5 `5 K2 V& g4 K    if energy > 50 [/ X( Q7 i8 [: @$ r3 ^
      set energy energy - 50  [, t+ g2 v$ Y& `8 g! A- u
      hatch 1 [ set energy 50 ]
, e4 m4 U+ |( s, f: d* t& w      ]! T, w5 _7 O5 D: t
    ]  D5 e* K! y# g/ T7 A
end
! d0 B  |" e0 ]% M, Mto check-death
* y" b3 a( |. r5 I  ask turtles [
1 t2 S3 g7 l6 A- H& z    if energy <= 0 [ die ]4 w6 c; D; n# G* X
    ]' K5 R) v, X4 v$ r4 l
end# R! d# y$ I# \. i
to regrow-grass( b4 |8 X9 G: l9 ^+ ?8 V8 w+ T
  ask patches [
+ I* p1 T3 o( c    if random 100 < 3 [ set pcolor green ]* V0 W& J9 ~3 I7 y! u/ u
    ]! T: s9 {7 W; }
end; v3 ~4 m1 ~: S& i5 b* q
to do-plots8 A+ t7 O7 |, j: F6 Y( L- }1 w9 U
  set-current-plot "Totals"
' Y+ r% _6 V( `; t. G5 D1 Q  set-current-plot-pen "turtles"( G; W# z+ i% k$ E- B
  plot count turtles
; F0 q- D; B# _8 T- K5 ]4 }  set-current-plot-pen "grass"% T0 j1 C1 N! I3 `' s9 `3 K' w
  plot count patches with [pcolor = green]
) g6 q% H% ~0 H3 J9 Z, L( Mend3 d8 }; S7 k0 m0 P0 o( ?" E
可是运行时提示no such plot: "Totals"5 R0 P* _/ Y# |$ Y2 D
error while observer running SET-CURRENT-PLOT# E- ^* |9 g' z8 q3 Y( l7 d
  called by procedure DO-PLOTS/ ~! X9 n3 s3 ^  _# A3 A' |& |7 n' l
  called by procedure SETUP
. {) L2 m8 |9 ]3 L4 w+ [7 e/ `0 g  called by 按钮 'setup'$ E+ z0 T3 @6 b# v" Z7 q
求大神解答啊
发表于 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 ; P# m' G# i( v
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-19 21:51 , Processed in 0.017296 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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