设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9892|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]1 _6 s+ F8 j4 o  C3 [, k1 K/ {; M
to setup
6 W; `7 Y$ P) y- W9 H2 U  clear-all
1 L' T* C9 F& _' q" R+ [8 z  setup-patches
. e( C3 N- F0 R6 j7 Y  create-turtles 100! N9 O& N2 n2 o; h: M
  do-plots2 b' J" m8 w# t/ D& ~" [7 a
  ask turtles [ setxy random-xcor random-ycor ]
9 v, H1 K! v+ {8 Lend( f7 `, [$ T" ~  N4 F
to go8 ^  H3 W. Z" q5 H; l1 [/ j
  move-turtles" D6 s1 |5 v& D& u9 C( k$ x' s
  eat-grass3 F* h( }9 a- q) n) L& g/ a# L
  reproduce' y" r! Y) F0 b
  check-death
  I" Z0 ?$ Q0 m5 S  regrow-grass
# B2 M& f9 P, _1 b" x8 b+ `  do-plots  ?2 W7 i( P) X% r6 l
end
/ `+ V7 L. h2 Eto move-turtles% q1 u# E) D: ]/ H' L$ b
  ask turtles [* r+ M* p, O$ `# w2 g
    right random 360
7 R1 \# J4 A* S, w    forward 1( ^" V* h+ H) D# ]( a! m
    set energy energy - 1& X- A, v& D) J7 e9 [; g
    ]% K+ A9 h2 h. V( _5 e
end
/ l$ S: E) w% |% ]' Tto setup-patches; `' f( E8 ]6 m; o
  ask patches [ set pcolor green ]4 w  v$ Z  ]& T# K+ b0 _0 E' L
end
7 _! N6 R2 B/ `0 sto setup-turtles
8 Q( i: ^# E* @5 W' I' b  create-turtles 100
% l$ B1 u, q4 z* z) s  G' N" A  ask turtles [ setxy random-xcor random-ycor ]: `. Y$ j1 b% \, h, \2 I5 e' ]
end& }* e; p1 r: t  v3 b* J- @# L
to eat-grass2 N8 C9 `6 a# |$ n1 X
  ask turtles [$ M3 `2 k3 G/ C0 c" Y+ C7 X( u' s
    if pcolor = green [1 H: o, S6 D8 L* N" [4 ^
      set pcolor black
. t4 J/ Q: b+ i1 U% }1 y2 V      set energy (energy + 10)
& m; u3 s- K+ e5 z      ]
2 w) s; R+ ?$ y+ m4 U    ifelse show-energy?5 Y8 Z) k  }. @" P) {" U
      [ set label energy ]( m' h: E% V& i% o
      [ set label "" ]
  F! E# x/ N2 H$ l    ]; f. n; _4 L) c& _( w) t
end
, g3 A0 U% F5 u1 f1 oto reproduce
( u2 r- C1 C2 Y, \; |2 m; F/ o  ask turtles [
2 n% D% T$ A8 ]/ g    if energy > 50 [
. i2 P6 s, x* l+ Z8 p( {      set energy energy - 50
! d+ F1 X: L" `7 I: l      hatch 1 [ set energy 50 ]
, r" @, {4 }9 r* O7 y( y1 e: W      ]0 o0 G1 `1 W9 Y( g) K2 g5 E
    ]
! E) W' C. }# s0 T. f" T/ C8 Uend
: M/ S! _% U; s+ N- Z: rto check-death, D6 f$ V) v. a3 H# W9 u: H4 i8 _
  ask turtles [, I3 k" v, s9 }
    if energy <= 0 [ die ]; r: @6 ^" O, j3 E1 P
    ]( e; y1 m3 N  q) `# d  {) F0 G( G& j
end
7 a, `* V7 {1 M' T1 Cto regrow-grass2 _$ D5 b) k$ h. w; a
  ask patches [5 t$ p4 A/ T& x2 I8 e* v
    if random 100 < 3 [ set pcolor green ]
: t8 w' C, |( y& F0 P! D, t5 S4 d    ]
1 y- D  ]* q) p" ^( |8 Q6 g8 dend: H( E& e7 t# v
to do-plots  K+ {: R- h7 Y- s
  set-current-plot "Totals"1 ?" Y1 V' _5 j( \1 M
  set-current-plot-pen "turtles"
. U( s4 R& T4 j4 J  E0 i  plot count turtles/ N5 x5 p& ^: M- i! V
  set-current-plot-pen "grass"; b% v2 B# k( ^* r; v
  plot count patches with [pcolor = green]
( E9 w, m) G; o; J0 A4 d! Fend
) a9 E4 {6 N# [3 X2 e可是运行时提示no such plot: "Totals"
# y6 k( c' x5 |9 h$ [; terror while observer running SET-CURRENT-PLOT6 C7 C& a( g; i1 E2 n$ C5 U
  called by procedure DO-PLOTS' O/ s$ E: h8 o# F2 a+ z, }
  called by procedure SETUP
3 q0 e1 m2 ?: r) E3 d/ Q1 \  called by 按钮 'setup'
- j) D7 c0 N) T3 L3 f% 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
7 W1 Q0 g' d5 ^& k5 B建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-29 06:00 , Processed in 0.020823 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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