设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10129|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# m3 h  M/ a" V: m- @to setup
7 {) o' s' ]( p5 I2 ~' Z  clear-all
8 c* y. v' P+ R4 ^& Z% ~  F  setup-patches
" W0 T& f' I( g3 o1 S- I5 i% r" r: H  create-turtles 100
$ p; E" O2 u. v# v% t9 j6 a  do-plots
& w+ n1 X- e# H0 w  ask turtles [ setxy random-xcor random-ycor ], f! D. r+ I9 [+ @! _$ d
end0 F5 W$ }6 w( Q  n$ r
to go' i& P& }5 @7 j& c6 G
  move-turtles
; Z4 ~$ }$ |5 M1 q/ R0 N  eat-grass' n0 b5 P" x( M( y- T
  reproduce
5 H- c1 q8 F. H7 D. F  check-death3 u% L$ x5 K2 d+ ^4 m/ |
  regrow-grass
. U5 J! E( ?0 s: h' W: E  do-plots
; `1 y9 e1 l& U' r8 C0 Eend
1 Q& D4 A; w( C& q( Hto move-turtles
( y( |$ \& S$ D1 x/ _4 f1 G9 u. Q  ask turtles [) v! Q; J, G2 R& a. z% T) C
    right random 3609 O, ^+ n0 ^% h3 Y6 S+ [0 P% }# D
    forward 1
, ~; ?, L3 r4 q    set energy energy - 1
4 M% R' n4 a+ n    ]
6 C* v6 d' E: R% G: rend- o1 m* d( k! J7 M! s7 @2 {
to setup-patches; g. ?9 g4 H, T( ?/ R9 ?  e% G
  ask patches [ set pcolor green ]0 B6 n+ }! W7 U7 S4 W  _# m; h
end5 Y) ^9 \. b, x+ \) |  W
to setup-turtles+ q& T. y4 i+ S4 u  l( n8 b3 }
  create-turtles 100
% M: Q' e. d, s( Y  ask turtles [ setxy random-xcor random-ycor ]' ?, T5 \' e) _
end
* r, \% B+ {5 G. ]& eto eat-grass) B& p1 j6 x, w9 T5 Z' @5 ^
  ask turtles [
$ ?8 X1 f! m% A# j8 a    if pcolor = green [
# }4 r  P: l5 j" H3 X' o0 @: u4 t1 t      set pcolor black  H  N! L5 U4 I2 f
      set energy (energy + 10)
- n' a- v8 ?/ f0 C8 h, W6 z      ]5 B3 p# @) M7 a# T
    ifelse show-energy?/ M( i' b# v' v  `, b& T) W
      [ set label energy ]
% e% X4 l* {/ H& T3 b0 R      [ set label "" ]4 a  k# x. \' P  h- R8 Y' c
    ]1 V. M- I6 w* e
end) h; d* `. ~& |; ?  v
to reproduce
4 j1 z5 _9 }! a% s1 x7 l  ask turtles [% T$ F3 X& }/ ^: \- z9 Q8 Z
    if energy > 50 [
. N3 u' X; P0 p) g6 O      set energy energy - 50
; Q5 T: }) r3 |# s      hatch 1 [ set energy 50 ]
  r+ r' t8 f" P7 s& M/ V      ]
' J$ G) N) W, Y1 E/ u2 E6 w/ F    ]! G8 [4 M( Q& G! f* o
end7 H1 `/ ~( L4 e; D7 ^
to check-death
  t. T! }  y) |; V8 V  ask turtles [
9 E: ^- }% k( O1 ?    if energy <= 0 [ die ]
% X0 K. e: y$ i) X    ]" h7 h4 {5 P) `1 w6 q1 \* k$ n
end# x7 ~$ \9 Q* n- U
to regrow-grass
" |% g8 \, M5 ]0 m  ask patches [0 O$ T) n8 k  l$ f7 x( ~
    if random 100 < 3 [ set pcolor green ]
8 z7 T/ E' V7 f6 H2 h' \' x9 `' P    ]
/ w0 e$ v+ r5 K/ o) a/ Tend! x, f2 X! {6 x' N2 c- m/ o
to do-plots
( c; |' i, D0 y  z  set-current-plot "Totals"
% r0 B, W8 i2 W0 z) G, e  set-current-plot-pen "turtles"" w; Y" r: B8 M
  plot count turtles
# c& @3 I. k; o5 j: N/ [" I8 e  set-current-plot-pen "grass"
4 i' ?9 w- ~6 g( }; E/ T# y, l  plot count patches with [pcolor = green]
' d4 d' x' F. b) lend! i9 z5 o/ s. S! X1 P/ Z/ k
可是运行时提示no such plot: "Totals"
8 D- r4 d; J( `' w* q: g$ X4 L6 Berror while observer running SET-CURRENT-PLOT
* N# o3 ?8 K2 j2 Q: j! C  called by procedure DO-PLOTS
& E5 A2 N  A0 B  called by procedure SETUP4 k8 u2 z- c/ Q: C# c5 K2 A
  called by 按钮 'setup'
' v( @2 }1 _+ D; E: u求大神解答啊
发表于 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
, }1 f$ z; a( p/ g1 W建一个叫做叫做Totals的绘图框就行了
4 T* O* I) Z- [, l% [. k; b$ ^
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-15 23:55 , Processed in 0.019344 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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