设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12213|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 E# {5 W* R0 w( S+ F( p% jto setup
  H) b* A; B6 l+ Z9 X6 b  clear-all, L! M: g9 D" Y( m* E% S* C, N
  setup-patches
0 a* `& }/ }6 \4 O7 O& A  create-turtles 100) {) M) t7 a( P7 k( J& j2 u: c
  do-plots8 n1 v) l( q) E8 S/ `% A
  ask turtles [ setxy random-xcor random-ycor ]
" C0 d# o* \2 r5 D# i1 C7 S& R) W3 Qend  u' E1 L( i2 U" N) |8 |5 S- z
to go
. ^& [* L  A! `* T  move-turtles# m" x7 E, h8 j0 b& [( q: x' ^9 v
  eat-grass8 u9 g9 I& D+ P
  reproduce
( N8 \; @4 x6 P2 |& ^$ ]/ L5 x9 X  check-death2 ^7 ?7 i; n& ~1 ~# z3 W. m
  regrow-grass0 T% G6 h% ^4 W2 v' a! N
  do-plots
  R; B8 {0 r" F: w$ M, Kend# Z) @% H0 h% y# K  M+ u
to move-turtles
+ L$ v" g' v4 E7 V; Q' P0 O3 J  ask turtles [" M  i* T2 g6 B6 P! z. p
    right random 3608 S4 [/ q0 R9 i! n
    forward 1
! e7 _" V9 c/ C& e0 v$ h    set energy energy - 1
: p) R5 a) I' q7 ?  E! f3 H    ]! F8 L& L# |, ~  h1 S  }3 m& j  X
end+ x7 T5 I" y$ b
to setup-patches& D6 T% [/ Z# `' }+ O
  ask patches [ set pcolor green ]
( B* x* ]8 K. f8 {4 I8 ]end: W2 p* g7 q" J! p  T
to setup-turtles
3 `* D. d$ N+ F% o  create-turtles 100
, L/ N2 j( \. Y) \! _. @  ask turtles [ setxy random-xcor random-ycor ]) F" k, H( Q3 K6 f1 ^
end5 u% y; }8 s; u8 u( G9 ~  t
to eat-grass# o* J- Z/ S! O2 I7 m, @
  ask turtles [$ q4 j- W- s8 I& ]4 ?& q1 f# C
    if pcolor = green [; @  ?+ h& {# D$ x, u
      set pcolor black9 e' f. o0 i1 U
      set energy (energy + 10)
$ k* h' ^2 Y6 e. U! j      ]
- L9 Z6 Y; i1 d2 P+ |; g    ifelse show-energy?
, W3 b9 a0 w, `( d! Q+ ^1 S' c4 c      [ set label energy ]0 s' B' o- f2 f) u9 z) |
      [ set label "" ]% u/ y+ x( s- L1 @% K" W
    ]
, Q  F* Q( Y$ aend
& @/ z. f1 g: N! Fto reproduce: X: E# f, x: r2 v9 r3 E7 J, K6 {
  ask turtles [
! a0 J9 O) x) h) F" |. R3 u    if energy > 50 [
/ N6 R& k8 N4 k  J) O      set energy energy - 50! Q, N9 b* K# ]+ D3 R' @1 i
      hatch 1 [ set energy 50 ]( ?( d3 |- L$ D  J6 T2 p6 L
      ], o: o! _! @: i5 p% f
    ]7 @6 r( B+ v! P7 S8 {. Y2 M
end
+ S/ s  |- K* C% cto check-death
8 i/ L; L; J  e; i1 }) i  ask turtles [4 ]2 ]6 ?, T3 Q) t
    if energy <= 0 [ die ], b# R; P/ e+ u/ o' l
    ]
# \7 K2 u2 c1 |end+ e9 ?4 F4 ~( ]  e
to regrow-grass, v# G, {. J9 ~
  ask patches [
' \! V2 ?, U( S; ]# t4 p5 S* g    if random 100 < 3 [ set pcolor green ]
" ~4 l: m! A% o/ f    ]% T. {1 P$ u' j# q- S: P
end
/ |2 ~$ K4 R9 E$ Bto do-plots
$ Z- V. {7 n- i* S$ X  set-current-plot "Totals"  L% I8 @6 N. E0 o# u" u
  set-current-plot-pen "turtles"& i' S9 k' \/ K. d
  plot count turtles
, I+ d1 {$ |! a7 u! o8 w  set-current-plot-pen "grass"9 C. H* a9 d& q8 S8 [; _
  plot count patches with [pcolor = green]+ ~4 V& V" o  C, _
end
' \0 n) ?5 n6 [可是运行时提示no such plot: "Totals"& p' _: X" }( G/ c) F$ s
error while observer running SET-CURRENT-PLOT
# w3 @, o  l8 A# m  called by procedure DO-PLOTS
$ E  @2 p5 a8 k! q2 `  called by procedure SETUP
6 Z, K" s! C7 L( _; F2 l% z  called by 按钮 'setup'! n  |6 a) @5 \7 R7 B
求大神解答啊
发表于 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
9 c+ N3 ?" p+ ~7 c9 J* A: x建一个叫做叫做Totals的绘图框就行了
/ n8 m1 c8 K4 [! a. ]0 j. a
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-2 11:32 , Processed in 0.020380 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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