设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11549|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: L# k6 p6 B/ J: ]to setup  Z* b# A$ V7 @4 _( W1 D( K; `2 T
  clear-all
6 k1 P6 ~" u. C  setup-patches
/ j" y9 P# A6 e, ^& T  create-turtles 1007 B% B# p# z7 j* X9 H. ~
  do-plots: G/ v2 C. v) o
  ask turtles [ setxy random-xcor random-ycor ]# t2 U. [: n% j( n
end* O1 u' Z' \% h8 O  i3 a' A$ D
to go+ X/ W" {8 M' Y0 W+ e1 ]7 `
  move-turtles
. {1 i) p  e; D2 d1 g% F+ p  eat-grass. T; C$ b% s  \) Q6 A8 W# m
  reproduce
" i1 x( X/ `* k) K' U& j9 U  check-death: o1 t3 M  S9 O! E: p
  regrow-grass
7 c( c! W$ {, V  do-plots
  K1 o6 b* D; y' ~% s: Wend; f# ~# @' ~1 c8 b/ ]9 Q
to move-turtles; s# A- ^% K! s) E" g
  ask turtles [
' g7 `- |1 W# |  e% [( e% i6 s    right random 360, L$ Y, p4 W' w) y2 i% v! p# F) D8 s
    forward 1) b& Z* d. b% e1 @
    set energy energy - 1& ~1 i* K& d' D6 h- f
    ]4 \2 D+ Z/ o4 s! x0 o: W. H: t
end
/ P  j6 C' u4 `/ J5 A! sto setup-patches, h* ^, m" X$ Q+ r3 s
  ask patches [ set pcolor green ]
/ A3 D4 a% d1 A* o1 V* w- O  gend
2 H- _7 O; n0 X& b0 W/ Ito setup-turtles
2 P# Z; N6 w; J; I* b  create-turtles 100
% ?9 J7 d! d6 n% E8 N  ask turtles [ setxy random-xcor random-ycor ]' _& P( Z6 R7 K
end4 I, ?! X- z2 h" t, x; h* j7 K
to eat-grass
- ^2 a# T& h3 P) ?5 ]3 g  ask turtles [
7 Q, O9 t7 ?" _$ a) s# Q    if pcolor = green [
! k% k8 |8 v0 C: w      set pcolor black
/ w$ D0 V; k+ f7 |6 `; ^& d      set energy (energy + 10)9 E; O& w7 F+ R0 S
      ]
; O- `$ u' ^' m' @0 n    ifelse show-energy?
' T8 X3 y; R# }/ z6 p- r      [ set label energy ]" V; U: e: }4 E! U( w4 v
      [ set label "" ]
  m, [! i3 U. ^    ]
& D2 Y  i) G, Z; bend( r) @# @' ]; \& b) O  O
to reproduce3 g$ S6 U3 l8 H9 \0 E% }. d/ ~
  ask turtles [* q) }# D4 }0 K1 v- c3 K4 V
    if energy > 50 [7 b% T# Z$ \3 S0 w
      set energy energy - 50" P3 l! O" i: Q" w; y3 C
      hatch 1 [ set energy 50 ]
. k8 |' O) a( b. K      ]
" K" \  U: Y. Q2 t: ]( x: B7 I    ]
1 s# M+ g% k' x  i# ?& X# Tend. g0 B- f4 N' T, l, R5 b
to check-death# j8 H# D1 u5 ?* _$ P% `
  ask turtles [7 L8 k- s/ x$ l2 E7 W+ @, m9 e
    if energy <= 0 [ die ]) n2 _: L$ p2 v) d) n
    ]
1 ?8 i" V  L! A$ F2 C2 vend
3 U5 ]! A: z# W6 l, W2 {/ Y' K* B$ nto regrow-grass& c+ b" A% D& `! U& B
  ask patches [) ]& R" X9 D; t, k9 ]% M# p
    if random 100 < 3 [ set pcolor green ]
5 i) X  {& v0 W$ c    ]0 z& v3 B: j- Q$ @0 c0 u5 o
end$ C8 R2 X5 J2 g2 `- q5 D4 |
to do-plots
, e+ Q3 |- r- H5 h  set-current-plot "Totals"1 T" c3 h# o  T! ]! O
  set-current-plot-pen "turtles"
* w; @# `( n# O! A  plot count turtles9 [0 r5 _" N; O* \: C
  set-current-plot-pen "grass"3 F) G5 Y7 W# I: R2 E
  plot count patches with [pcolor = green]( a2 |% D: ~( e0 t
end9 S& A' P  n! E# N& |; b  @
可是运行时提示no such plot: "Totals"8 ~0 j. X0 P/ ?( T
error while observer running SET-CURRENT-PLOT; r3 G* L' L" u$ G1 ?9 c/ F
  called by procedure DO-PLOTS( i* J1 U, A) f; J0 z+ L7 R. f
  called by procedure SETUP( a& \& `3 W! u8 L7 O3 S
  called by 按钮 'setup'
8 e' d# f  L" ^& c+ A: s$ S求大神解答啊
发表于 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 2 e( r+ k  b0 N5 x
建一个叫做叫做Totals的绘图框就行了
$ ^1 i- t. c% R" s& ~. {- Y. \
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-7 18:29 , Processed in 0.015056 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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