设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11851|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
' @  i8 n' t: H  j  uto setup% I( ~4 i9 f5 P  y1 Q. v
  clear-all2 F; Q. @( I1 |  U1 |1 l1 G- _
  setup-patches1 R9 ]( I4 _. ^- `. g+ ~+ H
  create-turtles 100" R8 U+ l" D8 C$ k- ]  g. e  z4 R
  do-plots: C' a2 ~/ }3 [7 A8 z
  ask turtles [ setxy random-xcor random-ycor ]
  I* t" Q( w9 Q. o/ Mend( X4 v8 G$ s+ {; @; R' b, w* q# C
to go  @$ ~3 O4 m* M. d
  move-turtles
* z; p9 i' o0 x$ u  eat-grass2 t' P4 r$ ^2 F6 t" c' x  l; Y
  reproduce
6 z5 g2 y" q9 S2 Q' I/ _; \! p* a  check-death; r$ t3 m7 ]+ i$ F  p3 v5 q
  regrow-grass
+ w/ X! W2 q5 f7 `0 R) A9 s+ ^6 q  do-plots
) k9 C. {  U+ v3 Q7 Q/ Dend
# l, u& F  M9 tto move-turtles3 @' U  R% i, N; a  |/ E( D
  ask turtles [
9 n9 I7 d5 O' J2 V! G/ ~    right random 3606 B9 d6 h) [7 x8 K$ b9 K$ `' C# t
    forward 16 O) f0 h! _4 {' [; V# \
    set energy energy - 18 [5 A0 Y% N' G8 x
    ]
# \  ]  ^' t6 c; s# W* \" E1 iend
2 m* V3 s2 r$ c0 I1 Gto setup-patches
5 n% c: R! t- t2 I: u  ask patches [ set pcolor green ]
/ v" ]' K2 v" M- o. ^end
, [0 `- v/ P9 F- Yto setup-turtles9 T. ]  J& G9 ^2 x
  create-turtles 100# X8 D; t$ g# `
  ask turtles [ setxy random-xcor random-ycor ]
( z0 c7 I! B" y8 w  f6 Z4 c3 cend, I. Q% ^6 c3 n  u: @9 Q! I# X+ s
to eat-grass1 A, h0 H! j! `% S: r+ I) `
  ask turtles [: y8 I/ O! G' p7 J
    if pcolor = green [
( i. t" ]3 `& Z* \* ~      set pcolor black
$ V7 ~' A( J- K5 K+ U$ G      set energy (energy + 10)
+ C. a0 g/ J- T/ ]      ]
$ U5 V2 k" l6 e' r2 G    ifelse show-energy?( \8 s" K: k% \5 O
      [ set label energy ]! p  W) K1 T$ |: H7 w! K
      [ set label "" ]: A( E' ]" q4 V2 E( v
    ]* z9 d5 m. {! `0 ]; E
end
/ F& m, K  t% ?9 R; ?to reproduce
) ^, G! s! M5 ]" \7 A2 ?  ask turtles [
& E1 r8 K3 f6 j0 [  `    if energy > 50 [
% j: a6 F/ _5 \3 M: W      set energy energy - 500 R% `8 l" T* U1 t) p% ?
      hatch 1 [ set energy 50 ]) f9 o. z% m9 [. N/ P
      ]3 N2 w% ~3 ]4 z  n" l& b8 @
    ]
1 [1 k, Z/ Y6 V% I- a/ Bend; F: h3 R# U, a  B1 g" ^
to check-death
% i* x5 b& \2 R1 ]  ask turtles [% K. D( n# p% I' _2 B) I* `: N) C
    if energy <= 0 [ die ], h+ K2 `/ L' @% e9 G$ L3 j
    ]
0 e0 J, Q* C$ r6 v' e( Tend: Y- O& v6 r! X4 Y
to regrow-grass$ I, J- [* d8 D! H9 V# c
  ask patches [
3 ?+ o# o8 R3 v: F    if random 100 < 3 [ set pcolor green ]
' D0 M1 L9 Q+ j  A+ c  _    ]- g$ G5 R$ ?1 T& c
end
; [8 P' B$ Y1 t; y5 O$ h  p. M; rto do-plots
" m' h# ]. p1 @, o( }# I0 p; I1 o  set-current-plot "Totals". c% w9 D! `# p
  set-current-plot-pen "turtles"! s( H" I5 V* a& w! w% o5 t3 s
  plot count turtles' h" M* W) I- I6 {0 i
  set-current-plot-pen "grass"
5 L# A5 U1 J0 j- t  plot count patches with [pcolor = green]
  _2 K" P6 ~6 K6 v- Tend1 ~! A( L# d2 X; n' x
可是运行时提示no such plot: "Totals"
& M- V: y7 {+ O* f4 M! Z8 S* \error while observer running SET-CURRENT-PLOT
& U* |; d- V, z2 k% v  v  called by procedure DO-PLOTS
! E6 z, {' Z- X1 l2 H* ^) l  called by procedure SETUP" x( d5 Q! K+ g# a( W# l
  called by 按钮 'setup'( s* M9 {3 ^& c) A6 \" `8 ?  G
求大神解答啊
发表于 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 8 c, l$ I+ y% f& [8 T1 T
建一个叫做叫做Totals的绘图框就行了
' ~1 X4 u0 `# z) r" B
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-6 02:37 , Processed in 0.015966 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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