设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11100|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 t3 ~3 ]  h! n0 |to setup
" p- p* Y* p9 I4 x4 G  clear-all  o) X1 e  w1 @
  setup-patches
9 l* O: C9 |6 p6 m8 s  create-turtles 100
% {( D% @- l4 Q7 B  do-plots
: ]# X) c9 f) d  ask turtles [ setxy random-xcor random-ycor ]
, |5 E  s$ D: p3 yend
0 H4 o# Q& y6 z* Nto go
& {# t$ s. A% j  move-turtles4 A" J& v: [. y6 @
  eat-grass
. o/ X. T2 l! W* r; E  `& m# h% }  reproduce% Y' W% U- s% K% S! Z0 ^
  check-death
8 `+ ^2 W$ W( |$ Z6 e2 Y  regrow-grass
+ k6 E: O' v; v+ @$ `2 L  do-plots
( O5 `' Z; Z' {6 f; ~end9 ], H. H, r- A  o
to move-turtles, G, ?5 H/ c0 u- `2 ?- N6 }
  ask turtles [
! O; }0 T6 q2 f    right random 360% v! G. s2 W, ?& i" y; L% ~) k
    forward 1: ]8 D& p+ L0 |/ }3 W4 R$ J7 b
    set energy energy - 1
! X; h3 Z$ H( a7 p! O. M    ], _2 v, C0 \) H' L  x% [6 _
end
) |5 F; B, O" m. W/ N4 _to setup-patches
& R% r, s! f5 [! Q$ V/ \" \3 t  ask patches [ set pcolor green ], `$ y' k1 d' L4 i( L, \1 D
end: W% X- b5 B/ z8 J
to setup-turtles
6 c2 J3 K) p) D3 K. m$ ]5 H% T  create-turtles 100" N( D& ~2 k# o
  ask turtles [ setxy random-xcor random-ycor ]
6 T% x5 I' u# T! K& @: S+ Z& @end8 b6 v7 s& T. \5 C
to eat-grass( B$ Q: ~1 v# b, S; B
  ask turtles [
! e1 D  W( Y- g5 x+ }: l+ |    if pcolor = green [) N& i) }6 g' ^8 a0 {
      set pcolor black
' b6 i0 A5 A. `; [$ k  g, k      set energy (energy + 10)' E7 R; K9 P' W* x1 y, R
      ]
' D, t9 ]# T8 @8 D6 w    ifelse show-energy?
8 g; s3 T" l3 ]7 c' R' L: K- w      [ set label energy ]
5 ~# D' H9 G, t, e  l2 s  O9 ^5 S3 d      [ set label "" ]
7 K( `4 C/ J/ _" k/ |% m' j. T4 q    ]
$ f# [7 D1 h5 ^# E9 Cend
/ x8 P: {  Y- t& Uto reproduce
6 }. a% ]" Z2 c; H% z+ b$ ~, S  ask turtles [$ G, I1 I4 h$ [1 C
    if energy > 50 [( U/ q& O- p: B. d! N
      set energy energy - 50
9 b/ t% h' s& e5 i6 R% x  X      hatch 1 [ set energy 50 ]
7 ?& N* A: x5 n      ]4 i- x% r7 M. V' L$ _, W3 [
    ]
1 m' f2 a. O6 }9 v  @0 {; p( vend) x4 Z. J0 f1 D4 K; u! _
to check-death
$ ~* E' ^7 a* y% R: r  ask turtles [
( Y$ o7 O2 j1 n  y6 W4 l0 K  C    if energy <= 0 [ die ]& P- {; D' i/ M& D
    ]
6 m. S, q# J, U9 R  O; Gend
9 F2 W2 h* E6 \( ^to regrow-grass
1 o7 y- g8 x' o3 X: B: r  ask patches [
' y% G2 }. e$ ~6 p/ o- K    if random 100 < 3 [ set pcolor green ]
: B. o" J4 }8 N' D# }/ e. v" H& Y    ]( E! C* K, r2 Q, \# c/ d' n
end
4 n- q% v/ [& l9 Y1 D5 vto do-plots2 K, I- ~8 l0 n% s- f
  set-current-plot "Totals"! u- n. Q7 n( @; N/ X2 v. i( I
  set-current-plot-pen "turtles"4 u) U$ p- c0 a% J
  plot count turtles
  |/ {; G9 x& U  set-current-plot-pen "grass"- {0 [+ o2 \& g7 W1 ^/ `" u) p
  plot count patches with [pcolor = green]
2 r2 X8 Y# b5 y9 xend( O* p1 w5 X# {, X* R3 r
可是运行时提示no such plot: "Totals"# d9 h* E6 m  Q; d2 S7 j1 L: T
error while observer running SET-CURRENT-PLOT  S9 q. @4 x# L& U# X/ }8 o
  called by procedure DO-PLOTS- H  E; z/ \, H' F; ^
  called by procedure SETUP
) u0 f$ v8 b6 z, c1 f7 B: }" A3 d  called by 按钮 'setup'
8 ~; ~, V/ @& X6 N6 Y; o4 p' A求大神解答啊
发表于 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   ^7 |; o+ Q# t8 R9 U
建一个叫做叫做Totals的绘图框就行了
/ Z. A( o) F" H
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-30 13:26 , Processed in 4.677855 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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