设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11613|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 e/ b, f1 R2 G3 u4 L$ `5 {+ uto setup  K6 a  A0 p* T/ Y
  clear-all1 L& N  ~; ]5 z  D+ V, f
  setup-patches6 V9 P2 ^' n7 z8 ~) X( R, Q7 a" b
  create-turtles 100: ]' l2 S2 @: d8 }4 \5 S2 G' K  O) O
  do-plots
. i- o9 @* P9 h% h, o7 z  ask turtles [ setxy random-xcor random-ycor ]
, k9 Q( V+ h" u$ o! O9 E  A. Tend7 I9 J* ^; P+ [: N3 C2 B
to go& k" ?% r; ?- `3 c6 e
  move-turtles+ B7 c. T. g/ I
  eat-grass( p6 ^. a' n- A  j& E
  reproduce+ y" Q8 @% P% \4 Z2 T) j
  check-death) R$ {6 J1 E, ^4 W. Z9 e
  regrow-grass2 E1 p- ~6 o  ]7 l* e
  do-plots6 v& Y7 G7 M& d* ~
end3 r* i3 c. W. g, i" _* p
to move-turtles
1 d) u  ~, `  I4 e) b  ask turtles [$ Z$ u+ h; o2 {' s
    right random 360
( {* _' X2 {2 x9 d+ t+ N    forward 1
& x0 _# g3 `6 \( R    set energy energy - 1
' i9 B9 j% o! u- @" Q0 F" o6 h    ]% u% m/ A! P5 h8 ^' F
end
/ X" Z' h6 _3 r% B: s" Bto setup-patches' V1 e& B1 X" }& O, k0 E
  ask patches [ set pcolor green ]5 ^  N. U5 i. H4 A
end
9 Y$ C$ T1 k- }7 \" Cto setup-turtles
! z1 q2 V! {$ v  B* J  m: S# g  create-turtles 100
! b* B! N2 Q2 X7 z4 y4 ^* r  ask turtles [ setxy random-xcor random-ycor ]& U$ ~' G! e& c3 Y& b* M
end
" q' N( s1 ]9 {to eat-grass
! \2 G' j7 l9 h' C8 {2 f/ f  ask turtles [' O3 t( I; I# }% H$ W  V. x# K  v
    if pcolor = green [8 s+ R1 V! P  J+ i) O9 Z! \
      set pcolor black
. c" `# a) q8 V" Z* X. E. Q      set energy (energy + 10)% o6 a9 l) A7 T) y" A& Z
      ]5 N0 e# W3 s$ P+ \4 ?/ ]
    ifelse show-energy?
1 e5 \  u- b0 h7 j& Q1 Y- l      [ set label energy ]* c" Y0 J8 H; t: i5 i( i! P' U, j* B
      [ set label "" ]+ N0 I' f8 I# h
    ]
7 R3 u% b8 i5 U7 V1 j# E& kend
8 L! L& F6 ~6 J$ w% f. `! uto reproduce
/ I  H3 K9 U4 {  E3 f( r  ask turtles [
  U1 k- ^. _- W; V7 m- \& @    if energy > 50 [
, b' F4 _7 X# M: C! e7 |      set energy energy - 504 J" }$ V" x6 O
      hatch 1 [ set energy 50 ]6 }- o7 \$ [! S5 V/ A  H
      ]
* K1 R" h) k, n1 ]    ]7 S$ ^' _- Y& ?: t# U9 j
end
) c" {# z3 J& |to check-death
. O. \/ W' B# U+ h) k6 K% p% V  ask turtles [9 O  f; F3 w' J
    if energy <= 0 [ die ]: Y. b: X' N; G
    ]" T, F/ D4 z4 }
end
* U7 \7 g$ K+ Sto regrow-grass* x) Z* N. d9 k3 C) d9 |
  ask patches [1 @5 b' ~" I' N8 k. [2 T; L
    if random 100 < 3 [ set pcolor green ]
/ v8 w, X. T3 W3 a" _1 S    ]! Z+ d; j+ I0 T/ `, N1 }
end# F: G4 _$ x2 R+ y2 a
to do-plots: a# h/ G2 D& t# B/ p
  set-current-plot "Totals". Q; C# ?. {4 H
  set-current-plot-pen "turtles"
1 u( ?# U% I& {4 Z" X1 k9 F  plot count turtles
) ?! h0 Z! u, C( y# I0 Q9 e  set-current-plot-pen "grass"
6 f, z$ Q  j$ D- e  plot count patches with [pcolor = green]( p! x. c( U3 Y- d* v" Y' h
end0 y% ^% u  f- v
可是运行时提示no such plot: "Totals"
4 Q& y) `% L, R6 Herror while observer running SET-CURRENT-PLOT) |1 ]. ~  ^# b9 D+ B. K
  called by procedure DO-PLOTS$ R" r( L; p3 C2 M7 S
  called by procedure SETUP  W& d. H3 Q( i: Z& W1 V0 L  t9 ]/ Y: ?
  called by 按钮 'setup'1 Z0 u$ j: b3 ~5 d0 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 * F- h% X3 c2 \& g2 A9 z
建一个叫做叫做Totals的绘图框就行了
, c) E' r+ v8 s3 V6 I& j
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-13 21:54 , Processed in 0.016373 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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