设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10183|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 x; V0 g; F1 j- B( X! r& x; c+ cto setup0 x; L4 `- a* f
  clear-all4 B' ]1 O* f; E" u2 a: b' X
  setup-patches% H5 @; g5 v) D& `4 P" T" e3 A
  create-turtles 100( L4 u7 X$ A' Q& A* H
  do-plots' i7 H; p3 T' r$ ~+ U8 d& l
  ask turtles [ setxy random-xcor random-ycor ]  [2 e* J/ }8 v7 `) {0 Q
end
  J( N$ `# ?, X4 ?2 Eto go
; U' |& L) h+ M, d1 ^- Q  move-turtles+ k2 R2 Z: W8 Q; @: M) z/ c1 h
  eat-grass. y& v8 L- ?6 a% o# {* t8 O: U% p
  reproduce: I3 Z+ ?: w- Y' z) B4 f( X: d) d3 s
  check-death8 S. i. P4 v: j
  regrow-grass
& ~# d0 W( u( D! X  do-plots) D  h$ n+ `8 P4 E
end
! f4 ?/ B4 u: J3 n, Q0 rto move-turtles
  Q6 j( O' G3 @. Q  ask turtles [6 }/ {' e$ d- S+ K2 a0 e
    right random 3608 u" C6 h$ I9 Q
    forward 1* i0 f) T- H; S$ T; ~
    set energy energy - 1. o& a& e* i. Y; H0 w6 @, b
    ]
: X* j. l7 i& K) z0 h* z: v1 [end
! |, Z$ A! T/ g( H8 yto setup-patches
; @1 T' r0 Y4 v4 N% z2 c, O  ask patches [ set pcolor green ]; ?# [6 A1 W& _# I2 _
end2 I9 Q% ?* X( B1 n4 {: ^' k; n
to setup-turtles
# G, @" ^" `0 E2 y, ]6 h! v  create-turtles 100
9 X6 P, Z) E; h! K5 O  ask turtles [ setxy random-xcor random-ycor ]
+ y6 v! J- r  |# o3 Yend. _: p/ Z2 w3 F+ B( m9 o% L
to eat-grass& |" J. G! c0 n9 w
  ask turtles [* ?+ ^' g8 _" V2 N4 P: p
    if pcolor = green [" l; `& i8 X$ T/ ]! K1 ^
      set pcolor black
$ E3 e/ Q  v% I; v" u      set energy (energy + 10)" s3 D+ [6 T3 a, @
      ]
1 D3 g( a: {. W# [# \# J    ifelse show-energy?
; g4 A$ o: Q: V3 K% R      [ set label energy ]
+ M: ~! `& i( U$ Z      [ set label "" ]
. N% ?, i5 Y. `* m- G2 {2 Y# X    ]
6 `: L5 _' o0 u5 Gend
/ E1 J+ p1 l4 W( E3 H8 ?3 dto reproduce
. `' L7 G4 w# f* Q/ \& o4 _: ?* {# x  ask turtles [
: `4 J, R5 x6 l$ A! e( k* ~2 X    if energy > 50 [
- Q: t9 U5 A  M2 v3 W% l! f      set energy energy - 501 }" @6 {5 N# ^
      hatch 1 [ set energy 50 ]
( F6 H2 u# g! z4 p      ]" \5 d2 D% _0 n1 v* k; `
    ]
$ c0 x/ f& ^. Q, Hend* g7 I6 m1 ]& G5 o9 G
to check-death
9 X, R2 }# u3 a* z6 c  [3 K9 l  ask turtles [9 W1 i. p9 x: |
    if energy <= 0 [ die ]
. u* A! I+ g, E+ l8 y; ?    ]
* L' ]; Y, n6 k6 g: c. {- qend4 d# A. v, ]( E+ j
to regrow-grass7 q& O9 |, h# A% y: q; v
  ask patches [2 P# ?3 b" P3 ^# U$ B3 L
    if random 100 < 3 [ set pcolor green ]
9 q( u% b/ r) F! d    ]
) U: a  P' c, }% Dend
0 \$ o$ a- o. u0 Uto do-plots
% R! @' v8 S+ L# ]  G  set-current-plot "Totals"% Z& a6 O* {; u6 y
  set-current-plot-pen "turtles"
! M2 [* m" c' z( p: w& h  plot count turtles
3 c! x: _8 H  o" H+ G: x9 P  set-current-plot-pen "grass": K- d+ e5 i8 x* H0 f9 a* `1 T
  plot count patches with [pcolor = green]
; M1 Y+ t6 E1 k0 C2 }4 {6 F" Cend
: W0 D; s8 e. J4 |可是运行时提示no such plot: "Totals"
( g# n, Z( u5 Q8 x7 |( K# v2 o* L& Eerror while observer running SET-CURRENT-PLOT
( L1 r: y. F+ L) `  called by procedure DO-PLOTS6 k( L. V2 g1 M; ^. R3 b2 V; ?& x
  called by procedure SETUP1 t" ~  N! A8 q7 _7 W5 b
  called by 按钮 'setup'
$ [/ J; H3 s; p0 t% |& W7 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
+ S3 M1 Q' m* {+ ^5 q  H建一个叫做叫做Totals的绘图框就行了
! @( C- q. X/ C/ H4 ~% i
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-21 06:06 , Processed in 0.018208 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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