设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12834|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]( U' ?3 ^- {3 N$ G1 w, A$ f
to setup# N+ C4 P" c( A, G8 a# M& k
  clear-all
" b) A, C* c9 j) @5 g  setup-patches
4 ?. d/ A' v: v3 B" p! C0 ^! W  create-turtles 100% w8 {$ j- I, Y6 F" a: j
  do-plots
& z* s# T! G0 H4 r  ask turtles [ setxy random-xcor random-ycor ]' l1 G( C* z: b) X% ?! H
end
& y6 q4 y9 K" M  H; ito go
3 h$ @9 Y& j5 E! Q  F  move-turtles
4 g" c* G! @3 R7 m, B  eat-grass
9 R3 I5 a! S! v5 c$ M0 Z  reproduce
# W% e$ w( D4 E" x- ~. k  check-death! U6 W/ J, v' q* N; G, G/ l; K
  regrow-grass
, K8 f7 W1 X0 b$ e  do-plots
9 p  n$ U6 z+ L' f& @9 D/ s: Iend
% ]$ Q% E: `, x* Eto move-turtles7 w& P3 d  S- F7 ^, Y/ F6 E
  ask turtles [
" U0 K5 T. O' f' F0 y! c: S4 E. g    right random 360* Y1 l  ?/ ~2 X5 \7 X! f+ y8 N% j
    forward 1
) f) q3 C9 ~' z9 M0 u1 r* ]    set energy energy - 1
' z% f2 F3 \6 n" a& x4 d( n    ]
  S* e: Q* v- Dend& i7 U' s% r$ n
to setup-patches
- d( m4 T6 Q, ?, l/ J  ask patches [ set pcolor green ]- R8 x0 Q/ u! @( U
end) B/ g; ~# W% z1 Z8 q: P
to setup-turtles: z' B$ `: D) h* f* F
  create-turtles 100( O/ P' {; W2 h! ^+ u& f
  ask turtles [ setxy random-xcor random-ycor ]
% c: q4 W  _' qend
6 g4 H3 G3 o- _; Mto eat-grass" p8 p. E" ?5 q8 j0 M7 r" X" U
  ask turtles [
& q- ~& C& k' k' ]$ o+ F5 b    if pcolor = green [# s$ H) p6 j2 H
      set pcolor black
% P( t5 d+ a: y" Q% p; q      set energy (energy + 10)
( a) x0 m0 f5 U      ]! E) ]/ y0 s) ~
    ifelse show-energy?
3 x! @6 O# R1 b3 q8 {" x      [ set label energy ]& w. y1 X" W  l7 j1 D
      [ set label "" ]
: v9 o! _+ J% x2 D    ]
1 W* Q, \6 [& \& Q5 F# l9 pend
3 c" t, f; R% E! `; g5 _to reproduce, q5 R* p) q! m% h% h
  ask turtles [
3 {# J0 \. x; w( a+ j6 [    if energy > 50 [/ ]  f$ ~' o- g5 a5 C: u/ K
      set energy energy - 50
! N; p4 b: l' Z( }+ O' D      hatch 1 [ set energy 50 ]
! T$ M3 T+ a& Z- P; K      ]( J; z/ P9 m& `$ I: ~  G: @8 }
    ]" O& z5 w7 w1 C3 \2 ~2 V/ A
end0 l$ X/ E/ u$ z$ u& f& m# G: y5 h$ o  t
to check-death
! Z: ~# t* D" a8 Z! [  ask turtles [
4 ], f% \0 c2 j( `& U3 w- |    if energy <= 0 [ die ]% o% Y" a3 A5 l7 Y# f. E7 X3 O# R1 L
    ]
8 k0 {* p, l- g! Z8 ]# D+ J2 send
2 y. C5 l. f' O: O+ Z, @to regrow-grass
& z3 A. Z6 ?7 P9 Y0 {  ask patches [
% Y  k6 d+ _* T  q    if random 100 < 3 [ set pcolor green ]
5 E4 [  P0 X# f$ d+ c2 H    ]
7 I6 e* W' Z4 S' Iend
3 Q3 Q: f4 |' z, V& u- jto do-plots
# x/ w2 `! |3 q# T1 b. ?  set-current-plot "Totals"0 r  i* ^( ]6 a% Z' P( m" u, u
  set-current-plot-pen "turtles"5 l2 y4 }( n0 Z* O, M& h
  plot count turtles
. I) b" q' S! h: F  set-current-plot-pen "grass"
: k% W$ r$ a2 Q" `+ l& z  plot count patches with [pcolor = green]: P7 G! M  `" d) O  T7 W! Z
end
+ g) @9 [- o3 O4 |3 {4 r可是运行时提示no such plot: "Totals"5 [, J6 }. j  [
error while observer running SET-CURRENT-PLOT
* D( b' O2 D1 G7 P( d- O5 f  called by procedure DO-PLOTS7 a! s. L4 V+ {* v
  called by procedure SETUP" Y1 K1 _) ?+ n- p- ~: W: x  g( k
  called by 按钮 'setup'  U1 P5 ]3 z5 ~4 P& w8 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
) ^$ R2 |6 _3 a) C) A- M建一个叫做叫做Totals的绘图框就行了

- k9 Z$ X1 P$ H哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-18 21:45 , Processed in 0.015332 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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