设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10311|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]- G( v2 c, }% m: ^6 e* [4 n
to setup
4 B/ Q3 n( w! Q6 z7 }" F) L  clear-all7 I4 v5 m; K6 j3 J
  setup-patches
( _! l; Y, P4 X0 }7 D  create-turtles 100
; {8 C$ V' X( |# D  do-plots+ y" g1 Q( [0 v" H; {
  ask turtles [ setxy random-xcor random-ycor ]
# Q. x& ]  K! \1 Yend
  n& \# _9 K* Nto go- x' O4 b' F* k/ [  q; ^9 n& a' @* u
  move-turtles
  l5 H# K. Z: _0 e0 d1 s  eat-grass
, H- K3 X) _- w: Q6 E( k( k, `  reproduce% n! J( j! g# p5 Y6 n
  check-death) V" `6 U. H( }
  regrow-grass6 p4 M$ _. x6 m  S3 `/ n; c
  do-plots
; D& y  `" k0 b: J' u. `  Cend* A, U2 G, f% }
to move-turtles
. Z+ P, t/ o- C  ask turtles [
+ `. N: B' ~2 \" K9 a! r0 n2 I+ r    right random 360' Y0 @2 o6 z5 ^3 T+ D
    forward 1  c% b: z+ W  U; j
    set energy energy - 1
- r4 e9 n: a( P" u1 U* P. X0 X" ^    ]) ^: W+ X$ W, R, U+ |# s) E. S
end7 t7 e# z7 `& {5 s, y4 m+ \$ _
to setup-patches
; r( g/ D& U8 u3 T  a( h. E  ask patches [ set pcolor green ]
9 l# x3 ?; h2 d' _end
( T1 v" m. C! D) _5 k! Bto setup-turtles$ f6 u- X- g( h) C: ~' e, i! Z
  create-turtles 100# E; Q, {$ `* ^3 |
  ask turtles [ setxy random-xcor random-ycor ]; p7 q$ e+ ]& y. M
end
3 Z; a6 |% l( ?$ I5 I8 A0 }/ Kto eat-grass6 i( \* s' t! W
  ask turtles [% g6 G8 ^! E, m$ o
    if pcolor = green [
, J6 {* R9 U5 @# Q3 G      set pcolor black; N. u" ^/ k/ F9 M6 s
      set energy (energy + 10)
9 B4 n4 c6 o" w' n& I      ]
% x4 a# o' o6 k& a9 c5 f+ e    ifelse show-energy?% t4 U3 r* S" ~" u3 @: f
      [ set label energy ]- f9 N) K" c- V- Q7 a& X7 }
      [ set label "" ]+ t, d3 q& Q# |% }- C
    ]
& c; h. l& Z1 i% O+ f2 _end$ c3 @% [' [  ~9 T8 H
to reproduce
/ @, W4 j/ P! l5 W1 P  ask turtles [4 M+ v/ \7 y3 _4 P- q: O$ U& M
    if energy > 50 [
$ @$ {% \' ?$ @3 G  ?9 x      set energy energy - 505 E" R; t+ `6 R' d- l
      hatch 1 [ set energy 50 ]
: z0 ]! V3 o8 g4 ~4 v( l3 a& Y8 Q      ]3 B# g) Q3 N# m8 ?. `  `
    ]$ ~; g0 e8 w% `/ S# {; v$ |( f
end
* C4 x+ y- v+ c7 k5 A/ Jto check-death! J" o2 ^) N! \  w- j$ l
  ask turtles [
9 e$ |- A0 \3 K3 G( q    if energy <= 0 [ die ]
" x+ z& D6 c. t8 s$ A6 u& y    ]
4 T( F6 B/ ]7 nend
0 I: m- K9 z( `) B  q- l) \to regrow-grass: F7 r, n1 r" G" Y' g2 d2 i8 `( ~
  ask patches [# @- v; ^. B$ Q' `, l4 ~9 C
    if random 100 < 3 [ set pcolor green ]" N7 Q7 {3 b6 a5 f. k
    ]3 k% Q# ~5 ~6 n, }
end
4 E: E* l- T  K+ z8 W2 E, a) _to do-plots
9 O  f  k+ s7 c6 v  set-current-plot "Totals"& n6 {5 j; h4 J# j; l
  set-current-plot-pen "turtles"  U. f; y9 m! V4 }2 `  b1 B
  plot count turtles8 r* u! u# P" i( p
  set-current-plot-pen "grass"
4 s0 {! Y9 O- ^& I  plot count patches with [pcolor = green]2 x% a) X  Y1 m6 v5 W4 Y
end
  Z2 _2 V0 M& ~4 G- `可是运行时提示no such plot: "Totals"
% h6 |9 T% N8 V$ g7 d( [1 yerror while observer running SET-CURRENT-PLOT
! u- {; q/ D2 _, K: ?6 [4 p* |  called by procedure DO-PLOTS
  t. ~5 `' m& G! F! ^! D+ I  called by procedure SETUP# `7 R4 ^6 Y5 {' b$ p  _+ h
  called by 按钮 'setup'* s+ v+ h$ `8 H9 J( C
求大神解答啊
发表于 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 $ D* a% y6 T* T) d! f5 V5 ~
建一个叫做叫做Totals的绘图框就行了
8 b1 h0 S$ B1 {% r* o* C! k
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-3 22:31 , Processed in 0.017003 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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