设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10169|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 ?* {9 u$ H1 K4 vto setup( Y8 i5 G, w% A: Q
  clear-all
0 z7 C4 j7 D& e  setup-patches4 P2 e& M, F; r4 f- a8 i) s
  create-turtles 100
4 w5 ^3 ?6 P1 h8 D+ c* [  H  B3 {  do-plots- h1 G1 L# H' }8 ?) m) Z
  ask turtles [ setxy random-xcor random-ycor ]# N' f/ g$ _: K2 A1 O
end% B, G0 Q- [9 H
to go
2 b1 P8 R# d& I2 o1 J  move-turtles6 Y/ @/ G. M, i8 ]5 ]; Z( V8 Q
  eat-grass
+ Z4 s* P" J9 B& g) ]  reproduce
" M/ i$ C6 x7 k1 Q, l8 V4 g8 q6 _) i2 F  check-death
: E, Z4 x! `* J' @  regrow-grass
& T1 G1 }2 o: u( A2 A  do-plots
6 V" b9 ~6 r5 r. r4 i/ i* p- [. ?end
5 v0 S) a2 D5 h# k9 U6 b2 N# ^to move-turtles
# }' L4 h7 P: ]  ask turtles [
9 o" X/ ~) D6 Y: ?    right random 360' C, s1 A$ z+ ?8 c
    forward 1
" A, S- z3 _* M; t9 Y, M% p    set energy energy - 1
& {8 K% o  h& ]5 Z    ]
0 f2 n6 d6 ~. s9 Hend, c/ w1 P: o3 B. T+ a5 p
to setup-patches! D  K- f( a/ q8 G( ~
  ask patches [ set pcolor green ]! U, g' u. N! t
end0 A' E8 _: Q; t. \2 k% T
to setup-turtles
* n7 V* a; [* [" b4 J1 r# Z/ n: r7 C  create-turtles 100
7 o# ^* q! c! d  ask turtles [ setxy random-xcor random-ycor ]
3 P5 f2 V! c1 x/ q3 S  J5 [5 Oend1 c$ b, `/ }. f2 q4 L
to eat-grass3 }+ E0 ?. R% w" q0 }
  ask turtles [' S8 w3 O# d  v; U# m+ D$ l. j
    if pcolor = green [* Z6 a& N6 p5 u6 x4 q: f. u
      set pcolor black0 Z! f( p% e2 _0 ^! E3 X" x
      set energy (energy + 10)
6 n/ @$ {: W  V) ?" |. q* v+ k8 Q      ]
" R2 I3 h) o6 f! s9 }: Z& m    ifelse show-energy?
; _  p: a* c$ F' r+ F, i% j      [ set label energy ]- P, |3 Y7 {5 v' Z0 Z
      [ set label "" ]9 `; Z- e$ q0 I; a2 a+ _
    ]" p9 @; R9 S& P; n6 R6 \
end
4 L! Q" G# Q% ]2 q# o% Vto reproduce" \" v7 L# ~' B' ~) B
  ask turtles [4 T5 n) f& n" e4 v
    if energy > 50 [9 E+ E& H+ ], x7 E& S1 q+ G+ S
      set energy energy - 50; `4 B1 p7 O4 {2 m
      hatch 1 [ set energy 50 ]
" s7 c6 v, d) |/ m7 a      ]
2 ^5 a6 p- U/ I, {% W  z    ]/ }& L3 F! B; Z' I+ ?8 u3 y8 M
end1 D) P1 F5 J8 \% t# T
to check-death) R: \/ D( e/ H
  ask turtles [) b; W$ e2 `8 u1 w1 s5 j4 ?
    if energy <= 0 [ die ]( D1 d$ C+ ^% ~8 ?5 y- E
    ]
& z4 ~% r4 v. mend
: }6 Z4 F5 m. X; b, s/ dto regrow-grass
: E1 ]) B# |6 k  ask patches [; c, L. d; |% M7 S6 q
    if random 100 < 3 [ set pcolor green ]
% E* Y8 e' r+ w0 E% L& W- u    ]
/ u! g( d5 t$ X# ]* Vend
0 _9 d* N; [$ A/ @+ s. q4 Y% ?to do-plots+ `. }( _9 q* ~7 L, h+ f# N
  set-current-plot "Totals"
9 D" Q4 E' l) V/ ]  S8 K  set-current-plot-pen "turtles"
+ z; w# V) D! t, I+ {  plot count turtles
# U  ^+ c7 D, _% l) e  set-current-plot-pen "grass"
, V5 F2 n- a! _5 _! ~0 u& U+ L  plot count patches with [pcolor = green]
  G4 u8 d: C2 B* Xend5 b$ x! ~7 D6 Y  u8 }/ B: a; g
可是运行时提示no such plot: "Totals"% [9 C2 u# n* V$ {( [: u
error while observer running SET-CURRENT-PLOT
& I+ z  J) j0 R" d/ l  called by procedure DO-PLOTS/ L7 e" l$ W. B$ I/ f% |0 b+ R
  called by procedure SETUP4 M% i" ~. G$ D% g4 T1 ^* X! B1 o
  called by 按钮 'setup'; z3 h" a4 V. P. c! t/ e
求大神解答啊
发表于 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 0 `1 k! F  @$ U, L* v2 |% ?2 k) y
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-20 09:36 , Processed in 0.018075 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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