设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11614|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* x3 ^% m* _/ J' x0 r; ito setup
' d' G, S! M5 i8 N7 H6 s+ s6 n7 E  clear-all
& N0 e0 b! q( j( p( Y) }1 C  setup-patches
; Q9 Y$ h: t: L7 V( K, L& [  create-turtles 100
3 O4 d; N* i5 h5 ^6 b# k  do-plots
6 `# Y2 p$ _* v  ask turtles [ setxy random-xcor random-ycor ]$ j, {9 w- O( D) }; k
end
" t0 p8 I- b3 j4 O- i5 mto go5 n9 G: H0 M' `" I
  move-turtles% c$ v6 y8 x2 H  k( [. z6 G
  eat-grass
/ T- K6 L: {+ O& I3 T" X  reproduce
4 O3 Y) W# o( o  check-death
/ S# D7 E7 H8 [: r/ i( J2 t  regrow-grass: u( X( f/ x, w2 @$ ]" A* z1 J% K4 w9 L
  do-plots
, S6 F. y1 o1 K$ ^end3 g5 h9 W, Q  K. K7 t4 Z( \
to move-turtles" l4 b$ d1 x; s  _4 f# ?2 ]$ G
  ask turtles [
/ I, [$ F: {; A+ f- p    right random 360
3 }9 i: }0 [) h- c" n+ H    forward 1/ W3 v# @9 r8 @/ Z3 l
    set energy energy - 1
) Z: ~: I8 ?( Y9 \5 C; k    ]- r6 n8 L/ J2 u  w6 q( `$ u$ F
end5 k3 d: }. l2 T1 U
to setup-patches% L" T- e! h5 d3 r' j
  ask patches [ set pcolor green ]& K3 K9 K8 \2 s# g8 r
end& a( Y1 b0 E3 h6 Y7 M# Q
to setup-turtles" a! _- p8 i4 `$ R
  create-turtles 100. _( t* X4 u8 ?3 G: `8 i
  ask turtles [ setxy random-xcor random-ycor ]
- c0 g$ u) e( hend
+ W: z5 ]) x/ hto eat-grass
7 l8 [% C5 G6 E2 m1 t$ v/ |+ m  ask turtles [
: `7 D3 {6 ~- C, w/ X" S    if pcolor = green [6 h  U- a% c! T0 a
      set pcolor black6 s/ j: `& h/ Z1 M
      set energy (energy + 10)
3 z0 p; ]7 C  b7 {0 c, {/ [7 M      ]8 e" x7 n7 }2 B* V3 Y5 h
    ifelse show-energy?, r* H2 D6 s' d$ E( ~, \, G( n, e* y
      [ set label energy ]+ E* K# y1 p  i  b3 @
      [ set label "" ]4 K* |( A+ `8 G( ]" D" k
    ]( G! e& D# e' n  K6 O- e5 s
end* p% x3 u; P4 w. n8 d
to reproduce
, N7 V; g6 S! |  ask turtles [# ~2 U  f3 S& u: N
    if energy > 50 [
+ p. p  X/ e1 D; H7 }4 _      set energy energy - 50, S4 m! T3 @  R5 O8 T
      hatch 1 [ set energy 50 ]
- F  {& [' x. r) R# a. `: u      ]
' v( B" M  [3 i& r- m    ]
; A$ O% v* u* g% n) [end8 W5 J( x; K6 S' r
to check-death* |4 l: e) Y) ]3 _) O$ J( s# F  a
  ask turtles [
0 C$ c# Y+ a5 H0 j+ T4 H    if energy <= 0 [ die ]
* E- [, l& v% g- X8 h2 ]    ]7 @' w4 h, b( m! s
end
4 |4 N7 D0 |. \; s! g3 ], a& A5 oto regrow-grass
! Z. E2 H/ V7 c3 e! A  ask patches [
( G! A% V2 }: I: F" C$ t$ D    if random 100 < 3 [ set pcolor green ]
3 n8 Q- A+ A* J. g( y    ]/ j  b" t; e- R) I
end
: `& B* ]# w' G( D( vto do-plots
8 u, F5 B6 B! a% z+ X  set-current-plot "Totals"+ ~  J( \0 y, _% F9 `, b, p- W
  set-current-plot-pen "turtles"" ^! [# `# c9 O$ y9 e) t1 E
  plot count turtles6 x9 h  {) T9 U7 v. y% S/ l( U
  set-current-plot-pen "grass"3 L$ I: V8 E- ~6 v9 t5 D
  plot count patches with [pcolor = green]2 I* e* z9 J% y" R& g- g% b9 R" M
end
+ L4 T4 |* H8 e3 |/ L可是运行时提示no such plot: "Totals"4 j1 S) Y0 i5 O8 ]& I( |9 X  J
error while observer running SET-CURRENT-PLOT
  R& e# `% ~: @  called by procedure DO-PLOTS
) E& l( |7 R5 I/ I2 f9 ~  called by procedure SETUP
5 e, H3 X% m. \4 t2 e: w  called by 按钮 'setup'
& h5 Q3 m8 j% Y* n* x+ D: P求大神解答啊
发表于 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 - N7 H5 p2 T/ F
建一个叫做叫做Totals的绘图框就行了
8 s6 \4 o* `. e) S
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-14 04:26 , Processed in 6.140817 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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