设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11170|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 B4 g8 x7 n9 i
to setup* h9 S5 \8 H. ]( F7 c# @
  clear-all
& v; Z( v* O4 B, S; D  setup-patches
) h  @  q5 ?) R$ k5 w7 O8 `* d  create-turtles 1009 y1 F. G4 |7 B! Z' E1 Q
  do-plots
  L& y$ }5 ?$ B& Q9 w  ask turtles [ setxy random-xcor random-ycor ]
# l( C3 y& y. d+ {6 j1 c. gend+ r5 v/ M2 U  A1 C# J% e2 ^3 b/ w
to go
6 D/ M3 D# P% a8 h& ^  move-turtles
4 a, z3 d0 |2 n- ?* f  eat-grass
$ e! G% X" _0 @" n  i; {  reproduce& ?9 |9 Z- z3 X% r
  check-death0 P, ?" K6 g( H' b9 P) O5 o
  regrow-grass
( y* T& A- }0 m3 H" `( U" {  do-plots
+ G8 v7 r8 q/ `+ o2 [end% g' P# [- F9 j! c2 l& [0 t
to move-turtles
9 R6 F: ~1 V0 W( U, l  S/ `  ask turtles [* O8 ]: k; A; |: F$ E
    right random 360
2 |  r! _! t! E    forward 17 F/ h8 s5 L! B! i4 z9 d
    set energy energy - 1" m: V* |6 T* C, U3 x6 n5 U" L
    ]
2 s1 o8 i. @0 y4 g! k2 Yend
& |: r! e# i! e1 K/ _to setup-patches
* q: Y. {" ]9 l4 ~  ask patches [ set pcolor green ]
1 a- y% w, `, e# Gend& W4 Y+ y3 k$ l+ ]
to setup-turtles
: ]! ]) r# o- j( I+ T9 N  create-turtles 100
1 k% U. f# K& H5 x) h  ask turtles [ setxy random-xcor random-ycor ]& F; s2 P) _+ |1 |2 T) G. \- y
end$ v* I# H/ K6 r: h
to eat-grass4 x% l& ]: L" \  N5 N
  ask turtles [0 |& [  H  t4 a% T
    if pcolor = green [/ b3 x7 Y) r+ }( A- U/ G2 d" x2 m
      set pcolor black$ K8 g( u- l( _6 H5 O$ j$ q0 K
      set energy (energy + 10)
7 v8 H- o! C" _' d      ]
. S" y2 y% S1 Z% P4 z1 D2 n- g0 w    ifelse show-energy?
6 d$ G4 o' r0 m( k$ K! e1 O$ U      [ set label energy ]% j/ s* g5 K7 I! T$ e
      [ set label "" ]5 b+ {$ I( @- J# ]' f
    ]
% M" W' n  P9 t- m; iend
( a1 e; ~& v/ \8 n$ lto reproduce. y2 p1 p( }9 _' R2 j" K  f
  ask turtles [
: T# R! f# V; M$ ?    if energy > 50 [- j; F. t# r. ^" S0 q0 h
      set energy energy - 506 s8 p, s) K; `4 Y4 g
      hatch 1 [ set energy 50 ]9 E2 r  _. J( z5 n
      ]
! \; C3 \! C: n: ~    ]
- D3 J7 O5 B$ }: x% ^$ M0 ?end9 u) [7 P+ f- n
to check-death
* h+ Y  f5 y9 A! S  ask turtles [  D0 C- i7 k5 ~, C* {4 a% o; ~* O
    if energy <= 0 [ die ]
0 i! s3 _3 [0 H    ]5 a0 v' Z. C1 y% x
end
3 ^5 \1 g$ d% A1 K9 z1 g% ~% _/ B7 Zto regrow-grass  J( A9 I5 n; |% n/ t% q/ W
  ask patches [
$ E" F  K5 o  s9 a- h    if random 100 < 3 [ set pcolor green ]
* @- ^4 {. f$ h0 Y9 o# T    ]- u8 G/ n1 ?) b5 i
end9 K  `- E$ {) T
to do-plots
% }. Z) O, q' t5 Y  E: l3 R7 D  set-current-plot "Totals"$ j+ A4 r3 k7 y, f) e# E9 c
  set-current-plot-pen "turtles"
9 U% O5 X9 b+ |; {. \  plot count turtles
( _( I6 I9 {' r+ |5 _  set-current-plot-pen "grass"  o9 k% e6 H9 G: I
  plot count patches with [pcolor = green]
; O9 X! y& g7 `  e) Z1 z4 [end( f4 b; a$ C' x
可是运行时提示no such plot: "Totals"7 L9 [* k9 l: o3 q; `& V. x0 z
error while observer running SET-CURRENT-PLOT
3 B, v, z7 B* P  called by procedure DO-PLOTS2 W8 Z; O5 u2 x' h; W5 ^  ^
  called by procedure SETUP% M; K4 c6 p) s( D2 g
  called by 按钮 'setup'
4 m6 J* J8 X% r6 d' _求大神解答啊
发表于 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 x3 p/ [& C+ e! c, S" d/ u
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-5 03:34 , Processed in 0.018465 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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