设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12458|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 O% b! }* ~  ]8 s! y9 Wto setup
2 J# C6 e4 R% m  clear-all4 U# i- t7 t4 q' L: e
  setup-patches
, T6 m; P- Y7 i) J3 |  create-turtles 100
2 z6 {! ~$ V: p) j  do-plots
: Z0 a. D5 E# R' g  ask turtles [ setxy random-xcor random-ycor ]
6 a! t0 @# s( V* Q9 k% \end
: I3 `& G$ ^  n  l/ c( ^to go/ @. U/ G$ n0 x/ y3 t
  move-turtles
; b7 ^3 S1 m$ n( m0 \  eat-grass
0 t  e/ q7 v& `7 C* ]7 v6 R4 _  reproduce  I4 l4 y# G' @( H5 S
  check-death  F7 f8 n+ y9 s9 t
  regrow-grass
3 B. U  j2 `0 ^0 T7 D# q  do-plots* P9 b' m/ ^' _2 ?5 G6 V; c1 j
end0 p  _, ]8 Y! Z! e( X: T( y0 H
to move-turtles; t/ Q3 {  X$ P# g/ ]# U
  ask turtles [
2 H( Q/ I. Z, u$ ^& j% Y* f    right random 360
# ^4 J" y1 H/ O; J- H    forward 1
; G. C6 |3 ?4 h' b  L$ f8 |0 s( U& U    set energy energy - 1
- O4 m' a8 `+ z- U) C    ]5 @/ h: L  N, b4 _3 I2 x; ^
end& z8 W! [" H3 ?: U9 X; s
to setup-patches8 J8 g7 {7 V  v4 h
  ask patches [ set pcolor green ]
$ y% {' X- ~1 X9 ]end9 {4 j; n4 ~) M8 k4 ]1 T
to setup-turtles
3 e0 y) e7 N- `& {; L/ j" A% w; n  create-turtles 100/ E2 ?1 Y! h4 I  v
  ask turtles [ setxy random-xcor random-ycor ]
) y& n. X$ i$ p+ G3 qend
3 A) l  ~. q+ X; ?to eat-grass
9 o/ V' H; V" e- X( M  ask turtles [1 \7 M! S" E4 F' G. C& g6 L1 K
    if pcolor = green [( P. M2 ]% }1 `; a! q( n+ N
      set pcolor black
; n/ L& f8 [* m" \8 K9 |( i9 B. C      set energy (energy + 10)% G5 A8 Q4 D" _: s& ?
      ]8 [; L* s2 H  b) ^  [, {- Y
    ifelse show-energy?
- s& w/ X3 T7 n) r% h      [ set label energy ]
0 w5 O9 n9 r( G2 \# _      [ set label "" ]+ v- W; n5 g# C, K8 O. Q
    ]
9 {# u. ^9 N" [9 C0 dend
+ E) M* q, t; I! ito reproduce
+ I/ I5 c2 O" s3 c7 [0 B  ask turtles [
+ o* [# J% \' t& _5 [4 h8 ?! P$ n    if energy > 50 [
! T1 b4 ?* G- e4 H$ s; V. |      set energy energy - 50
# ?" G3 |; b8 Y' b      hatch 1 [ set energy 50 ]
% S9 p& s% b2 e9 d7 e      ]
( |4 m0 o( v  R( i" u& I4 c8 F    ]
0 D% z7 J+ R) F. |0 C+ [end
, g' f# J/ ^6 J7 yto check-death2 S% V% p- d8 `
  ask turtles [% J7 `7 U" I: F" [5 ?) `
    if energy <= 0 [ die ]
/ m. S6 X9 x+ _4 q- @4 Z0 W3 b    ]
4 G+ x2 A! Y1 I6 Pend3 W* m( \! R: R
to regrow-grass
' K/ C4 {. K, W  r  ]5 o- m  ask patches [- S9 A, @: E/ {8 q5 r9 u
    if random 100 < 3 [ set pcolor green ]
, U! E, O0 A0 i* d# W5 g( r    ]' M8 V% n. |: Y
end0 N3 }. x$ s3 f/ j+ z# p& f
to do-plots
) v3 Y" T$ G  K  A: q  set-current-plot "Totals"  ?/ [+ P+ {3 n) n
  set-current-plot-pen "turtles"- i+ y  F4 i" |+ Y  O9 E$ i
  plot count turtles: x0 |" Y( p& v
  set-current-plot-pen "grass"  a; U' |) c( [$ K4 t
  plot count patches with [pcolor = green]) t' V% g! P' Z; V+ j' U
end
( @9 {# Q2 ^6 k' ~8 [7 N可是运行时提示no such plot: "Totals"
& i8 m3 N6 q  S1 R: b, L/ p! Merror while observer running SET-CURRENT-PLOT; H! V# o8 [2 O! F
  called by procedure DO-PLOTS
; I1 ?3 v) A3 M% K) o+ T; C' B8 `  called by procedure SETUP" R( S0 S$ J6 {8 W) U
  called by 按钮 'setup'
/ K1 }+ r1 o0 q, f* @求大神解答啊
发表于 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 + c# l4 @* l* Y) m1 O
建一个叫做叫做Totals的绘图框就行了
) H4 l3 A' D3 D' r* J
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-23 06:24 , Processed in 0.017806 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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