设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5953|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]( H7 r5 F* m0 b. c+ N! [0 F
to setup0 K& U) L! Q; f2 h3 d8 B
  clear-all& z) N- L3 a* }( V0 D
  setup-patches: U- I/ \. l3 C. o
  create-turtles 100
. z2 {2 m- [! q! u  do-plots
3 y, c0 l* l, W2 c  ask turtles [ setxy random-xcor random-ycor ]! {5 L- k' g3 \( h8 a
end
) J7 Z% U" k* a) ?0 ]1 I6 B, Eto go. j1 v2 O  q0 t9 @0 t" t
  move-turtles
; s9 o8 e" h) h+ `% x  eat-grass1 v& N8 K9 L& Z
  reproduce, k& p5 s- V8 I1 [9 `8 S
  check-death
$ M1 f5 E" M  A6 e) N  regrow-grass5 B  Q0 r8 c% ?  I5 N
  do-plots' c8 E# Z; q8 i8 X7 R
end
, f; w* ?6 j  h& t: B6 @5 _to move-turtles
7 b# v5 J: F) F! S1 b  ask turtles [
- f4 S4 C. x4 P* Y    right random 360
) {! B' H" d. `, R- |    forward 1
) Q$ ^# r" l( r: c6 k0 @, n; i    set energy energy - 1
* W# D- G7 s8 `- b: H6 e& q5 ]    ]
2 D7 \2 i- H$ {8 H4 v0 ^4 ]end/ F; v3 h8 a4 x5 w
to setup-patches0 J6 @# m" f( ^# c! k, L6 p6 \/ ]
  ask patches [ set pcolor green ]6 |6 J* G9 b( F. R
end# s( V3 `2 ^7 c1 }+ J% [3 @( A
to setup-turtles
- K! i) j7 B6 V1 b  create-turtles 100
0 o3 a2 X$ z& f5 ^# F  ~- E1 }  U  ask turtles [ setxy random-xcor random-ycor ]$ K" F5 i% o4 C! e; B+ v  b1 r
end% y( h% x" R+ ~0 p8 G0 X
to eat-grass1 Q# ?" l2 ]7 y7 N  [8 h
  ask turtles [" X0 J0 E( ]4 i: K" v* p* |
    if pcolor = green [- ?! ?& P% C" v! z# W
      set pcolor black
( o" i- V) `# x% d      set energy (energy + 10)2 x! ~* [. |; K: N2 m& b+ O/ t& K
      ]: e% |: J2 O+ I% A. N( H+ @1 L
    ifelse show-energy?5 V# ?8 r  _$ c8 z2 L5 X! S
      [ set label energy ]
/ O& L5 C8 D5 I      [ set label "" ], W* n5 W7 D  ]$ r/ X( G; c1 z
    ]
5 F+ \+ E" N* G5 V# v  g( Tend; K/ X9 s' Y: |  w- E8 r& Z+ R
to reproduce
! \/ o4 |# \* p/ t  Q, M$ e0 b- T  ask turtles [/ |* l% h+ m0 `* D' b: M+ D
    if energy > 50 [" j4 U8 A; ~+ q- U' o( ?
      set energy energy - 509 O2 H% T4 P( i& d! L; y
      hatch 1 [ set energy 50 ]# X: k5 S9 i# z) ^
      ]' T$ i* g6 t- @. o' y9 }7 n+ V
    ]" G- o9 ]$ p6 x7 J
end
/ c7 g  Q$ `( Y4 m  U" N5 L3 Nto check-death3 @* @' i/ a! w5 J
  ask turtles [
+ c' }8 e" G* U+ F8 `    if energy <= 0 [ die ]
7 u+ c& y2 y' P+ r; [% o    ]+ K# P! h  ^2 _' K/ n! w$ r
end# r0 m2 s5 M7 t
to regrow-grass2 e+ F+ D/ y0 i0 o
  ask patches [
. X/ `- V2 J  d2 Y    if random 100 < 3 [ set pcolor green ]
* i( I! N, Y& U4 O; T  z    ]. I3 G3 V0 L3 \) D
end* \" {( |* R! k
to do-plots5 H1 U& d0 B, Y5 G# l
  set-current-plot "Totals"3 y. }) I4 @9 ~. z& g# M% n% }4 C
  set-current-plot-pen "turtles"+ u8 b2 o! g$ j8 M# ?+ d
  plot count turtles- l7 J7 }3 @: m
  set-current-plot-pen "grass"( _' f2 w" }3 V6 U8 w
  plot count patches with [pcolor = green]
9 b' ?' Y/ f* ?( W( vend8 P9 ^- V% ]: {3 k! _6 S% _; S
可是运行时提示no such plot: "Totals"& [. ]3 T3 o1 X
error while observer running SET-CURRENT-PLOT
/ p4 B0 Z, L" P4 x6 o$ N  called by procedure DO-PLOTS
; r# C( d! z+ \$ N9 C" M  called by procedure SETUP
) S; ]( j+ k# ~8 \3 q. H# v  called by 按钮 'setup'
6 i2 H4 E# D5 H$ 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 + e& L$ g, m" n
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2024-4-28 05:08 , Processed in 0.015629 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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