设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10118|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]; z( i3 i. ]% S, c  K8 f6 d7 [0 W
to setup# y# I, r( ]+ v' k& B
  clear-all
" T4 K( _0 K5 q! R4 i6 v' ]* M  setup-patches! f! P, f' g0 H
  create-turtles 100
6 X4 _) X8 p2 }8 k! l  do-plots
3 u( n+ u0 R3 ^" n/ J6 M# Q  ask turtles [ setxy random-xcor random-ycor ]! ]9 n0 ]; b( B0 u) Q# m2 C* o
end- V; B! w- X- M! [
to go4 x1 h! t: C" K- J
  move-turtles
9 W7 }  N8 [- g" s' l. v  eat-grass
* D8 z# @+ X0 z4 `  reproduce+ K! r) B9 v1 a3 ~& M
  check-death
# Y0 E3 X. p# o& P  regrow-grass
3 C' z' R" U* G6 f/ V  do-plots/ M) p5 d5 Q& M
end
. W$ p0 N1 U- F& y0 I" D: ^1 a$ e$ [1 ~: jto move-turtles! d. U! X( Q7 ?1 ~. H' ?! A
  ask turtles [
, n# L4 g2 v% x1 w    right random 360
( H6 t  K" T" O5 W, N    forward 1, x( N; a- l/ n, F6 q/ V
    set energy energy - 1
. G- b8 B) }$ g- H) ~    ]# w; z# g) e' e1 J7 }) p
end0 P. @, `, R; n# V
to setup-patches
' k. l. n0 R. j3 j; X6 e3 w, a& G7 |  ask patches [ set pcolor green ]6 ^; R- }: q' V+ o: V
end
% _! W4 {0 W! g8 [% G- Rto setup-turtles
% M8 ~( j0 V: q8 v8 E  Y9 F$ [9 n  create-turtles 100; x6 n* U) G% [" O. i! s
  ask turtles [ setxy random-xcor random-ycor ]
. u4 Y& \: Y* {. S. iend
, u2 u+ w& d7 P& D' E: {/ ^) t% rto eat-grass2 K0 |: T8 ]- |/ K. }
  ask turtles [
: Q  z: p0 n: A/ u    if pcolor = green [3 q3 ]0 P2 j  R+ D5 l+ b$ Y
      set pcolor black* D  f; m4 g6 `  I5 D" j4 I# P: U
      set energy (energy + 10)
, f4 Q1 b7 Q" m( Y/ Y' D- X# R      ]
$ l8 L! r0 z$ R" k9 A0 O    ifelse show-energy?+ v- b" {3 K8 M2 e
      [ set label energy ]! v+ V$ i0 G1 ~) |
      [ set label "" ]
) I/ k$ H4 T" }( ^# z2 r. `    ]
; l! h8 e6 f1 J3 X  rend
  t; I. n0 r8 k3 c# zto reproduce
7 p8 w" a4 }0 A# D2 k1 e- g  ask turtles [
* k8 J- q& p- e7 I1 x. b4 ?/ U    if energy > 50 [% C, x; @3 P- @% z+ _) H
      set energy energy - 50
" g" K0 J. b: K/ z+ T) J4 Q      hatch 1 [ set energy 50 ]# E7 a! z* C7 V2 }) o
      ]
7 s4 v; Y( t& C" m' E( S    ]) S3 X* n* h1 e0 V
end
8 M5 d9 L9 m! d' _to check-death( e# @0 a( ]6 U1 \+ F/ ~* }+ M
  ask turtles [3 U# D; T; w% V" p7 z( H
    if energy <= 0 [ die ]  C7 H% u* S5 c) ^5 ~* }( i5 {2 a
    ]
, q% V3 y9 y  V+ o) D$ W2 g# V, lend
" S2 E" c/ I9 L( \) _; mto regrow-grass
6 t3 a. e6 v! ]) Z% D* i9 W  ask patches [
8 t* _; N) K% K3 r  b) d    if random 100 < 3 [ set pcolor green ]
* Q3 E6 D- b- t0 I$ S$ X0 @$ Z# P    ]" f  W: p. E; k) p1 M2 w( U: |3 F
end
, ^+ e) Z6 Q. C& }7 x/ b* s4 rto do-plots* b" ]" ^2 y" h" ~
  set-current-plot "Totals"* M7 |. ?, B: e" ~6 T. A' w
  set-current-plot-pen "turtles"
5 U+ L( G3 _' r% }  e; \  plot count turtles
5 Y  N3 m7 p  z6 L  C7 l9 w  set-current-plot-pen "grass"% f7 g7 a* a; F- @
  plot count patches with [pcolor = green]6 P6 s+ r  P: l" e
end
/ w" _8 F1 n2 l$ b可是运行时提示no such plot: "Totals"
8 a! |6 I$ F" @* M4 \error while observer running SET-CURRENT-PLOT) ^$ v: Q; s+ X4 N
  called by procedure DO-PLOTS( _0 V3 j' t' J- k9 j
  called by procedure SETUP1 K( v* m  k+ j. K
  called by 按钮 'setup'; o: _: ?0 Y6 t  W
求大神解答啊
发表于 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
. O' l- d3 A( q  J9 P! `4 R建一个叫做叫做Totals的绘图框就行了
0 Q: ^! J9 v/ h1 I
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-15 03:20 , Processed in 0.018225 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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