设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11475|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( b$ [  {0 G9 @to setup
; M9 f" `* c  ?4 |  clear-all8 K: c9 s  \3 ?# F9 z6 X4 z
  setup-patches" P' H/ a: R3 t- t2 i
  create-turtles 100( Q% c* ~7 l* k
  do-plots# G) u! W# Z3 r- G; K
  ask turtles [ setxy random-xcor random-ycor ]
- W& D* k" c( K1 U- M7 U: d; qend2 h8 E3 G5 `( G. S6 b% [
to go  b( x1 {; O: R% e1 v6 Q
  move-turtles
/ L, ~/ q+ E+ j. Y0 Y  eat-grass
) A0 W3 z+ e1 ~. D" o' u  reproduce
/ b" B4 z5 }$ v  N' |7 {  check-death' Z, s8 N; u) X" b# w- M& |2 ~% y
  regrow-grass# t5 U- p% [( z+ M0 l
  do-plots8 L9 z' j: z) \" f9 q
end7 P& ~0 [4 Y% F3 r
to move-turtles3 z' c! _  D4 X, h( _" r. B, n
  ask turtles [
. Q. f3 n3 \& R! q6 m. S! a8 B    right random 360
0 e& Y8 Q; |# h: {! A    forward 1
1 U2 ^$ z& `1 C$ [, D+ |    set energy energy - 1' c6 o" ]/ p2 j1 i1 }/ I' C7 N
    ]
4 _6 U" z. n$ P; U$ h5 \end! D( X3 l' O/ c# z- C& m# Z1 J( t
to setup-patches
5 P. C4 L& H, L" O9 Y' ^$ ~  ask patches [ set pcolor green ]4 z; e* C0 G# O0 x, E" h7 F' h/ X
end8 l% n' m- h; @  A( \; t+ t
to setup-turtles9 A! T; z$ I2 u# B
  create-turtles 100
, Q0 W- f. O: u9 r/ Z- \  ask turtles [ setxy random-xcor random-ycor ]8 s' M3 `. ?4 R# |! W
end
7 [/ v  {" L/ G8 bto eat-grass
% z3 v1 Y* P  S) @% q, P  ask turtles [
7 `& g% v+ c8 t9 s    if pcolor = green [8 y" A) `" U+ b
      set pcolor black1 V  ^. d- \) j" U
      set energy (energy + 10)3 K- C$ H! J7 f: E. K! Y+ N$ t
      ]
$ b" A0 C  x( u0 `    ifelse show-energy?
& |/ e2 g0 M: T! ^% d      [ set label energy ]" [7 E+ U' L* D3 `  `$ j
      [ set label "" ]! e5 g% B9 z$ `
    ]
3 i( J% ?, p/ a  G$ Wend
4 m  S7 L- L) f/ A4 o) u, b. vto reproduce# h% _$ N- ]& C- S+ v
  ask turtles [
: m1 F4 V% y( P0 S$ i    if energy > 50 [
& P* n+ t6 T( z4 E3 P/ n      set energy energy - 50
  k5 }' H# \8 E7 {- C      hatch 1 [ set energy 50 ]
' w( @5 a' J* R0 c5 s0 c6 G% z      ]# V# P% M5 m! R. ^* R9 ~
    ]
% M& K4 ]; V4 S$ d' u; J3 G9 Send% Z7 u* F+ J3 g
to check-death5 k3 z' ^" \( f; p3 A7 w) F& W; @
  ask turtles [4 T2 G2 B: ^: Z5 Y
    if energy <= 0 [ die ]1 o: F) r6 x% q# k, B
    ]
  a  R' H8 L, E$ a; `- O1 {; M3 Gend9 ~: `  [, ?1 o% P' W
to regrow-grass5 Z. z! g8 |- w  t% d% _  ^
  ask patches [
& y4 x. M1 h4 A+ ?3 |6 T8 Q- x    if random 100 < 3 [ set pcolor green ]
1 b+ C2 a) @; M$ X; g. r    ]
: m4 w' ~* f5 Bend
4 T* d" U4 r- z, O" R' qto do-plots1 r5 C4 p! ]- {, j
  set-current-plot "Totals"
1 E0 O' ?# J) Q  set-current-plot-pen "turtles"9 \5 o" ^9 [+ [% x( u- }. H
  plot count turtles# S9 `& t, ~" r* q1 b- H' M
  set-current-plot-pen "grass"6 ]* [' h# }+ M! C; n. x/ t
  plot count patches with [pcolor = green]' [9 F  i( m2 p, V
end
9 g- _: z# i5 T* X4 j可是运行时提示no such plot: "Totals"
2 E# ]* z3 ^1 S6 T# I# T. ?& aerror while observer running SET-CURRENT-PLOT
; T/ i4 K0 x+ ^, o  called by procedure DO-PLOTS* A& Q+ E6 I9 j" }) Q; r
  called by procedure SETUP
$ h* Z1 `( X0 {5 X' r. \  called by 按钮 'setup'# s3 u  @: X& I7 \2 N) S, X
求大神解答啊
发表于 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
5 j( W; t* D+ @1 y建一个叫做叫做Totals的绘图框就行了
8 v, b. W7 _9 [% A; H
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-2 07:28 , Processed in 0.020437 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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