设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11502|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* x- R+ {7 y: d( Z- `$ sto setup
% \* v+ B: F6 I' r% J  clear-all
6 @/ S/ \0 V: Q( E# f/ X  setup-patches
9 `$ r) [; ~, G/ w2 p  create-turtles 100
! A! j0 E( \6 W) _" V7 H, m  do-plots
4 q/ L, _. C  k. V/ G* n  V2 B  ask turtles [ setxy random-xcor random-ycor ]6 ]$ }' w# I$ H7 w% n! h/ m
end
2 Q, W5 o& Z. yto go+ b% Y: |- R( u4 {
  move-turtles
0 J: Q5 u9 X7 s% z; F  eat-grass: ^) I: s# r0 k2 K( k/ k
  reproduce9 _' [9 q; l) I% o/ ]* b. z' ?
  check-death
7 B* c6 g4 m# m! @1 r  regrow-grass
5 g! }: T* x$ {0 C6 [) Y3 x  do-plots  ~0 \4 B4 w) s+ I) |* s. d* e3 a, q
end! }4 |4 B( |- c- z# S* E
to move-turtles7 |, [1 z% H7 a" d( ~
  ask turtles [
  m- J  g7 w7 E    right random 360+ P( C2 Z/ ?+ V" e
    forward 1+ Q0 ?8 `+ X0 o
    set energy energy - 1! k/ W$ V3 D, L8 w
    ]. G/ g! m2 ^3 ?
end
3 `8 U! O, A3 |, z7 X5 ?1 Qto setup-patches; ?9 R- E" V' y3 m" F7 \
  ask patches [ set pcolor green ]8 ^+ C/ m  a/ o$ _
end5 h: L6 E3 ~! e% P: M7 t' s% Q
to setup-turtles5 t, S" C3 H# L# n+ g
  create-turtles 100, R4 ]" _- g& P3 f
  ask turtles [ setxy random-xcor random-ycor ]
5 G) P. K7 A  Xend
. A* p  R" a' x) N0 E' [to eat-grass
+ S1 ~( }9 R* x' g5 M  ask turtles [
( W, i; [& d6 V4 a; `    if pcolor = green [6 Q9 l& x2 }3 m6 D3 p
      set pcolor black' w3 \/ U! C% F( C: q
      set energy (energy + 10)- P( o% D0 p; ^& z
      ]
& _/ d% g( k8 i4 V8 D4 K    ifelse show-energy?! E' z! m7 ^+ V9 a; J
      [ set label energy ]
- w4 L' R$ a7 O% W2 e6 H: ?" T5 y0 z      [ set label "" ]- C9 V3 j6 J- E6 \1 _5 T" ^- A
    ]
; x& N: b1 w6 y! K7 G4 @end8 N  L- T. e9 Z0 s- s* s
to reproduce0 M- Y9 b7 t/ X+ Y, P: q
  ask turtles [
2 Y& N2 H  Z0 A, }    if energy > 50 [6 c! H! K* V5 A, ?" R* i$ x
      set energy energy - 50
0 L2 c  L! X. J8 d; O      hatch 1 [ set energy 50 ]
+ P2 x1 Y( Y# a2 q6 R) }4 `8 ~      ]+ z' t  f0 f. K' D$ ~
    ]+ M0 l; j" A( n+ E
end
, e* t; [/ q5 J6 Z/ Tto check-death% I& {- K) \# d5 e( J- R. Q
  ask turtles [- O+ A8 I: ~# l8 ]
    if energy <= 0 [ die ]
; R4 z" ]# p* x6 W& {    ]* S6 ]# l. I- A' W
end3 F) }3 }. _- @/ w" h
to regrow-grass
1 S2 r0 i) p. D- ?* C' V8 A  ask patches [% v0 p" A- b1 ?  L$ P* i
    if random 100 < 3 [ set pcolor green ]/ Q- Y8 _1 m# C9 R% D
    ]# ?6 [: ?5 f/ |7 {& T
end' }2 q% P8 z2 ~0 T
to do-plots1 k: v% Z- B! S0 @6 m
  set-current-plot "Totals") ^% w+ ~1 G7 O  t
  set-current-plot-pen "turtles"
( `' m& Y* O8 d1 z, n) h6 Q5 h  plot count turtles
% r& z( o' ~0 ?' q: {' b4 c; i* m  set-current-plot-pen "grass"
" G  }: g4 M+ Y! e  plot count patches with [pcolor = green]  O7 x! Y* G; A+ \6 Y8 i+ B
end4 }( X/ I" x  o7 U& A" Y5 \( N
可是运行时提示no such plot: "Totals"3 k2 j7 g5 D6 Y" n, j
error while observer running SET-CURRENT-PLOT
4 d2 ~3 L- o9 l1 E6 }4 N  called by procedure DO-PLOTS9 F3 z, X# }5 d# A0 P$ e5 k# _
  called by procedure SETUP
' R5 V! u0 A8 |% X  called by 按钮 'setup'1 D; u8 B7 I+ d9 b
求大神解答啊
发表于 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 ( Z! G  P' {$ A
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-4 00:42 , Processed in 0.017853 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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