设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9193|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, U" k/ a; ]& a9 O1 Rto setup
. |: \* v; s! p  D  clear-all
7 T$ t4 K, @: b  e6 u1 _  setup-patches% m' r. E3 t. t! Q' P
  create-turtles 100
6 D, q+ ]8 H3 L, P: E  do-plots1 f9 e) Y5 f. g$ e: f
  ask turtles [ setxy random-xcor random-ycor ]7 ^* f8 e! n4 k4 t# o) Q
end6 N: ^( V- U8 |0 x6 e' v( c, j
to go
# y; v1 F% d  {" {  move-turtles! j1 N. w7 x" R0 K4 U
  eat-grass
  r; r. y& @' c, d3 ^  f  reproduce
6 _  G; c: L% c$ b  check-death
. m% J9 p# I  t9 v3 `7 y  regrow-grass
4 ~1 k1 R' d3 [2 w+ I8 k5 o5 F1 U  do-plots( S0 d, e( H" Z
end
7 {& @/ r9 g' [5 r" A0 g5 t. Qto move-turtles
% f8 V0 U, y8 N# \  ask turtles [0 u' E; h' O1 r2 N! @7 A6 o
    right random 360
3 v% G" B2 Y  V! Y" Q% F    forward 1
# W/ p2 j6 A3 c# L( s  y& ^    set energy energy - 1
/ D5 z6 a+ v) D' Y  U    ]
0 O! Z& H7 ?3 L2 y7 [! hend  a: X/ [; M, x6 C8 u
to setup-patches
# H+ M5 v8 ~; X, x* y8 W+ c  ask patches [ set pcolor green ]+ K# @) s2 ~& Q
end
4 a. J. f1 f% M# `to setup-turtles
) g+ `* C! B; U# R% m! r; s  }  create-turtles 100! U" l2 n( U' O7 F% F
  ask turtles [ setxy random-xcor random-ycor ]( f4 R" f1 t1 M* X; Z
end
1 ^+ k7 ?* j+ O9 U) Uto eat-grass; a3 w1 u; }% w7 I3 Z
  ask turtles [
! J0 X' c! b! V1 t+ n( i) B* D$ X5 \6 |    if pcolor = green [
, a  `/ R, ~. M1 R% P: q2 ~2 w      set pcolor black& X- ^. X& X2 H% u
      set energy (energy + 10)
) i- E7 f; L. X: p8 R6 z6 P      ]! W* S' b9 ~3 o4 N" d- ?- x& `
    ifelse show-energy?
$ v0 G2 K# r1 x& X3 i, p      [ set label energy ]
( ?/ Y+ q2 o! x% W      [ set label "" ]
' v- N7 E) W# i7 p( l% ?    ]
+ o$ l( ^' v/ K; T3 r8 F7 Nend; k7 }6 Z) [$ v- Q3 H8 [; M5 h
to reproduce
& s, p' A9 C. X  ask turtles [1 I& @$ x( D6 `2 a* g
    if energy > 50 [
) c6 }# m" N3 r. M! b% f; j( l      set energy energy - 50- @8 z5 m  N7 {% @0 k. M' u
      hatch 1 [ set energy 50 ]
5 B0 _/ \$ j3 ]: ?  z0 V1 [      ]4 B+ Y  Z( G, S
    ]. p' L' `4 P0 P# r4 C
end! U' z: C0 S. Y5 J2 Z7 \( S
to check-death
! m' J' I1 T3 J3 q$ ^& C  ask turtles [
* v/ P) T. i( o0 y: f    if energy <= 0 [ die ]
; h6 o* |; U' s$ C" G5 d- Z7 _    ]2 w) M# S  l+ c  l
end4 g! w$ o4 i$ p; W
to regrow-grass
9 E$ Y, {4 X) Y% ^% }  ask patches [6 l3 u! _6 z, ^; A2 C6 c
    if random 100 < 3 [ set pcolor green ]
. I" Y1 L- p$ d0 D    ]
; F1 Q& K: B# v, c9 x, }end5 J, M# \: m) c; Y# |
to do-plots
" e- O, l9 T- S- N+ w2 N% Q3 z" \  set-current-plot "Totals"
  Z, k, [' R) O& x  set-current-plot-pen "turtles"( W% A! b- n; Q* \: s  v2 g& l
  plot count turtles
# I/ m1 G6 J* ~9 ]  S( E  set-current-plot-pen "grass"
# _  w2 T% R1 o  plot count patches with [pcolor = green]" C( R; P7 G+ @! F
end
3 F. X1 u0 I% e1 f可是运行时提示no such plot: "Totals"( q3 H. N, p3 j% Z: W$ w, y
error while observer running SET-CURRENT-PLOT  I9 V1 ~6 @5 a" @- _3 I
  called by procedure DO-PLOTS# c% \1 P8 h. _& _: z# f; A
  called by procedure SETUP9 i9 L6 B# S' S/ r6 i& _+ m
  called by 按钮 'setup'6 i" O. |! _9 |& l0 Z6 \7 Z2 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
2 l) Y0 D' ^) G建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-11-24 07:50 , Processed in 0.019930 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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