设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9854|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]  F/ Z4 S4 u, E: x' Y8 y
to setup! B& {3 N7 M- ]4 h! q7 J1 A
  clear-all
3 |* x6 w0 U$ @% v. D! A  setup-patches1 x( v0 T' o  _% N& R( V
  create-turtles 100) O( l2 ^+ X+ i- n
  do-plots- |5 C  [, p8 ]' P
  ask turtles [ setxy random-xcor random-ycor ]
9 ^1 O1 a/ @& D- send
3 v0 Q7 s- `1 I0 Jto go
! G6 s* Y+ ^$ [+ l, C4 g; h  move-turtles2 M4 S6 k/ a  o
  eat-grass& X" {# @6 a( X6 O
  reproduce) M- G, d# n1 F& z( a
  check-death
0 g+ \) O7 Z7 V& e$ L3 F9 \( `& S  regrow-grass
5 a1 [6 B7 [% r# _  O% g, Y  do-plots
6 @8 T: }# i9 t: m4 `end3 H) j$ z3 U$ W- T: l! N
to move-turtles- E, t: i/ i- ]' m1 }
  ask turtles [5 u% K4 [2 f8 p
    right random 360
) @8 q) C& Y6 o    forward 1' Y4 c( D  p2 \
    set energy energy - 1" n$ A4 a, g% [( N( m: X% K
    ]9 e4 {; k6 A0 p& _7 O: v# T
end
9 O* n& }( m, y3 xto setup-patches
4 N: y' E% H* U9 y  ask patches [ set pcolor green ]
1 ]8 b# v$ D7 _0 yend" @. i" S# D/ F1 p0 E
to setup-turtles+ R! ]2 t  D3 k
  create-turtles 100" o+ U$ h, A. Y. M4 [& g% F
  ask turtles [ setxy random-xcor random-ycor ]3 U/ y( g& ^7 H  p
end
9 `% q4 c& N+ R5 E& h8 u( uto eat-grass# F; G: y% u( p) m' L9 {
  ask turtles [
7 B; c9 G" H, Q8 ~    if pcolor = green [. z# R4 G* L0 n( c& g( H
      set pcolor black
6 A3 d. Q, a9 l2 V5 }( c      set energy (energy + 10)* m6 P0 G! r; f2 x0 o* J0 ]2 E0 b1 {" z
      ]: u8 r8 M! [6 w5 i: Y: R
    ifelse show-energy?
- B5 T7 S3 ]) q- r# i6 E      [ set label energy ]
+ I' i7 d* ~) o      [ set label "" ]
0 j# t  T- A1 k: s: I$ }( \    ]
0 w) ?2 q' Y$ R+ X8 q5 Lend( C7 s: ~5 _! n+ c
to reproduce- P3 b" A! U9 O* Q: N
  ask turtles [% o: w, {! C* r3 N! X9 q: e
    if energy > 50 [0 r; y, j5 ^0 y. ^, J2 Z5 k
      set energy energy - 50
; E$ s# F( o1 d2 k* c) Y      hatch 1 [ set energy 50 ]
3 {; ?5 U" y, g' s5 y% h" _      ]. _* @9 N8 N8 S8 r* k1 A9 P5 M
    ]
, P; n; G+ M' c- K5 J+ f) ~3 jend( a  W; v8 ~% N; C8 T) G$ {
to check-death
8 R: W& r9 g6 M1 z: s, x. ~$ C7 c8 X  ask turtles [% h& d2 `1 i5 c9 o+ S5 x5 w$ u, q
    if energy <= 0 [ die ]
, F) T1 @  C# V    ]0 r, c' ]3 l) w; v% `5 `! ]; N
end
8 \8 z+ j4 j' M8 Dto regrow-grass3 Z0 `$ r5 c& b& L" @' P+ j, X
  ask patches [
. l" m, v$ _! d" U    if random 100 < 3 [ set pcolor green ]
, W0 I4 O! ?' }% T    ]
: x! R8 H1 M. q/ S1 }end6 Q% G9 x+ ~4 d9 d. C+ O9 p
to do-plots
4 U0 g* Q0 O3 _* y' }  set-current-plot "Totals"
) x( C' |6 c% k+ R6 o+ K" ~0 P; q  set-current-plot-pen "turtles"
; s5 Z" A1 R' Q) P9 p; |0 `- M; X  plot count turtles6 O; a1 r# Z; C& Z  D* l
  set-current-plot-pen "grass"7 |! p2 A  b# E/ k+ t
  plot count patches with [pcolor = green]: s+ C# m. p4 k
end
4 P( b" T$ p' ]9 g- b( S' p可是运行时提示no such plot: "Totals"! b/ o# W# p& ~$ ]) o3 |7 ^  s% [
error while observer running SET-CURRENT-PLOT* W9 |' ^6 `! m9 b% S% u* b
  called by procedure DO-PLOTS  y0 |0 t1 t% i& E. Y
  called by procedure SETUP
; I. m6 j2 f8 s8 A6 n2 A  called by 按钮 'setup'
! W+ J% z! r6 z; N/ e" K求大神解答啊
发表于 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 6 o& R9 ~+ E' r& t$ d! d
建一个叫做叫做Totals的绘图框就行了
7 R- p, F, ]* n! U8 c2 t( v
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-26 22:10 , Processed in 0.020107 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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