设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11808|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 ]" X& a+ H9 J7 X$ g8 e/ Ato setup
  J0 x2 H( s) I: \" W' ]/ @  clear-all8 ~0 q: \) _/ h2 ?
  setup-patches
0 g! Q! ^" d2 X- ]2 R/ g  create-turtles 100
' y# e( Z4 _3 O& q9 K  do-plots7 |* C: M( m1 a7 E
  ask turtles [ setxy random-xcor random-ycor ]- m; L; V1 v: T
end7 H- u. a% v+ h0 h
to go6 ?' P7 y& @- `( m7 W0 S
  move-turtles5 f0 j" h( o3 n
  eat-grass
( X0 m6 j7 y+ o: `  reproduce
8 l6 S2 X' k3 A  w6 ~" p  check-death
5 f, Z2 V2 W* g. l# W% R; M  regrow-grass: o( i. P$ @9 R. f# U0 c  A' E' Q. {! i
  do-plots2 J5 ^* O. G, E9 Z6 h  U; X+ F1 ?
end
9 ^# A  T) \8 Q0 F9 f' T* fto move-turtles/ Y5 P1 ^7 G, u/ I: M6 V8 S8 a2 f
  ask turtles [
# u4 ]% T4 I8 G2 ~, \    right random 3601 q7 D( H$ |* t
    forward 1
8 Q8 ~8 j7 {- t  i    set energy energy - 1
  _: t) s% A3 d    ]  p; J, q7 ?, k2 a, h, P/ r
end
, {" e: J, j" V9 a8 ~; ~to setup-patches
( `) N. R4 t' m9 y1 @: H: o, B  ask patches [ set pcolor green ]+ w8 s4 ^+ M, M$ G! s
end
% k+ B# [0 |/ A* nto setup-turtles
: }0 j' {$ M$ V6 G  c" C. I  create-turtles 100
1 F7 c2 U( U! `6 C. u3 k2 X/ v  ask turtles [ setxy random-xcor random-ycor ]
- w1 d( U; {; x9 J$ M: }end6 I4 B+ S5 Z- M6 w
to eat-grass
, ~1 {9 @. \4 J+ d  ask turtles [5 W& S$ `; U* q( e* w+ q* b9 N
    if pcolor = green [; h; ]# p* v3 L, A3 {( z
      set pcolor black$ g7 j1 H' Z; r- w
      set energy (energy + 10), ?* G& h- f) d, U8 a$ i
      ]
' H6 I/ S' V9 }1 W/ D7 }2 P    ifelse show-energy?  d- a5 b  V4 a. ]' n
      [ set label energy ]6 W+ a* I+ ~+ @, x, g
      [ set label "" ]
$ M7 N; Z  m5 i. o    ]
2 r- e; r( l0 S+ ], W9 o# Kend
8 x2 _7 t# W# q4 h% ^# F0 u& r2 oto reproduce8 Z$ S2 j9 W7 N% A8 w! M* `
  ask turtles [2 O% U: e& [' P4 y% r9 A
    if energy > 50 [8 a) k. j2 M  Z- w) r* L: E
      set energy energy - 50
- ]$ p0 ^0 W+ ]& x. b/ H4 L3 h      hatch 1 [ set energy 50 ]% ^$ g, G* e% C% m3 G; @) i
      ]0 P8 a) @, M- c  S6 O& ]: h
    ]
/ c5 j, V$ t( O& P' m% f" S% Dend
9 r/ v( N, D1 M0 `/ e1 D' hto check-death+ I3 f8 @. c- m' |. |$ z
  ask turtles [
; R: y) u8 ?# D3 f- y    if energy <= 0 [ die ]; S) f, `5 ^" x8 `7 k' v1 j. {6 @
    ]5 ~" V* A* G) W( M  |( @. {/ {
end7 x, L1 t) P# U* ^  W9 f  _
to regrow-grass% D! m. s: Y) a/ s, u6 u
  ask patches [
0 ]' N1 m: v% }. |* n    if random 100 < 3 [ set pcolor green ]: H& k- F: E9 K
    ]
! Z5 m1 C+ ~$ ?$ Nend
+ y7 e4 N6 a6 w: ito do-plots
9 X5 J' G  G% Z) I  set-current-plot "Totals"$ ~! q: S( z/ W9 F7 _( s9 r4 @- F
  set-current-plot-pen "turtles"
& K/ @- ]5 m0 U0 C5 J/ D# p  plot count turtles
. w9 N/ @0 C/ O  set-current-plot-pen "grass"  q$ L; U, e2 w% E( }. S" [0 c9 q
  plot count patches with [pcolor = green]
, o! W1 ~9 Q" A: Iend( z( K" h4 N1 c$ M( B
可是运行时提示no such plot: "Totals"
0 T3 B/ a9 T/ a# x+ e" r+ ierror while observer running SET-CURRENT-PLOT
1 ^4 P1 I( ?7 b  called by procedure DO-PLOTS
* S9 H: A- P7 F) d, B# ?  called by procedure SETUP
, ~! D' T% x: x( D' \  Y  called by 按钮 'setup', ~1 K$ H( B. `1 N
求大神解答啊
发表于 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 5 w* B( Z; k: u! C: l9 V4 K
建一个叫做叫做Totals的绘图框就行了
3 }/ x( q1 W! T2 L2 e! a
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-2 08:14 , Processed in 0.014565 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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