设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9842|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
! z: X2 r" y# \! K8 Z0 Ito setup& {; y% P* `! v: P  Y' B" L
  clear-all% }! T- ?7 c; S
  setup-patches( g) d+ k2 a9 p2 m$ l( U2 p
  create-turtles 100; C$ ]# \& u" J, V/ i5 J
  do-plots
8 Z9 c! Q! t, {2 a  ask turtles [ setxy random-xcor random-ycor ]
5 ~0 D- k) I1 J2 c* x2 A+ _end6 L& v+ J$ |, o3 O8 P( x& {4 F
to go
. ~; e/ t9 }9 A3 T  ~7 ^  move-turtles5 _4 b$ N6 [1 x: r
  eat-grass
1 t8 B. e% H8 V/ g" M  reproduce" |( I& q' ?2 }
  check-death
$ E, W( S2 i- [/ [( f  regrow-grass9 \4 k/ A% w) d
  do-plots# \# Y* H& W, G+ v% U! f1 ]8 A
end3 g8 s8 X  S" X( t" c1 \7 H
to move-turtles
$ R9 F3 U& T( |. h" K# x) \  ask turtles [
4 D+ ?3 a- O$ ~' x    right random 360/ V6 X0 k7 W7 k; ~) D- @4 w* w3 Y
    forward 1; E. S# D0 l/ J7 b: x, ?  q0 z
    set energy energy - 1
8 k  i2 |" z8 x2 Z( M$ \: C% w0 i% _    ]' I& h# i6 y6 q  ^+ G
end
% J! x4 L, ^5 Kto setup-patches0 f4 I  y/ _! w. _' k4 a
  ask patches [ set pcolor green ]1 C9 D6 N: ]/ T
end
" a3 s3 h( j. o- {to setup-turtles
2 r3 r; x2 ?3 h  create-turtles 100
8 T5 O; W' S8 R- ^) z" T  ask turtles [ setxy random-xcor random-ycor ]
: F3 u6 D6 v  y  o' @& z6 tend
0 w6 ?- _, u  F3 |& d3 ~to eat-grass6 W9 q, S' L' ]6 y$ o2 V* U
  ask turtles [
4 Z' L$ h2 F' v1 ?    if pcolor = green [+ ?* b3 ~; F  t3 B% _8 z
      set pcolor black
4 {3 x5 @! i0 g0 E      set energy (energy + 10)
! A" P5 ?* w4 X( D; n/ y' S' ]      ]
+ O9 V5 @/ U" d    ifelse show-energy?( G1 E0 A+ r' L8 w) U7 X+ P/ ?
      [ set label energy ]
0 ~, @! Q0 F( i3 Y1 y& Z  G      [ set label "" ]( p; a( i8 j- I' L5 F
    ]1 R6 f: L8 }" W* l) W! Q
end
  G! F& t; `( D5 sto reproduce
+ ?8 T* R' x8 g1 d  ask turtles [
# k3 ], Z3 U, ]) ~; V4 j- F/ w    if energy > 50 [
. i. g5 Z+ e  t% c7 e5 g      set energy energy - 507 f4 X. `* u8 g1 Y
      hatch 1 [ set energy 50 ]! B0 _3 j) l. ~+ M+ ], U
      ]. V8 F6 L- g9 ~! a" p% v
    ]; H7 @' M+ T7 n! d" W5 m- E1 [
end
4 W/ C9 t  p# r4 x/ G' [to check-death
5 P8 ]1 ?2 F+ e8 }5 O  ask turtles [
; X2 |! Y6 Y2 q# G6 d# p    if energy <= 0 [ die ]: _' M( g7 a+ a( @& F
    ]
% Q! [' b. u6 b+ Qend, [2 d' s, Q4 l3 K: \- W/ f
to regrow-grass
- W' R6 Y& Y6 k  ?% n" u* S  ask patches [) E* T+ E! t" N4 P6 m% V" L
    if random 100 < 3 [ set pcolor green ]$ |% B+ |) [2 n% k# J
    ]
/ ]5 R2 ]# ^0 s* X1 a8 send. |1 J- w) ~* H% `: p
to do-plots5 s& t! I. F) c. ?, Z  |
  set-current-plot "Totals"
+ O) @7 D- o9 S! [  set-current-plot-pen "turtles"/ \! K, Q! h8 b2 v1 J) C4 g& y
  plot count turtles
2 x- o# b$ e0 I, Z: X2 B/ @  set-current-plot-pen "grass"
, i+ p# Z( l5 N+ I  plot count patches with [pcolor = green]4 g/ ]. v! w9 f* Z& u- ^% c. e
end
2 f' U: T- k& z( h  O+ e可是运行时提示no such plot: "Totals"! p: P  b7 G3 W0 z
error while observer running SET-CURRENT-PLOT
4 g/ A4 V/ K1 x; w3 u0 A  called by procedure DO-PLOTS3 |8 }+ r4 L( ]7 \+ o. n( `
  called by procedure SETUP* k& ^# q2 s" h4 U& R
  called by 按钮 'setup'; w6 H2 K7 M: l  S; k) B+ r8 }% {) Y
求大神解答啊
发表于 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 7 j2 b( |% ]3 {% U& I/ L
建一个叫做叫做Totals的绘图框就行了
" Q, ^/ ~) p! k) H( q
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-25 16:00 , Processed in 0.018855 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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