设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12051|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]0 {/ P9 i; k, l/ Y! f  O& F
to setup
( e1 a7 V5 \- r  clear-all
4 L% J. Q+ V9 F  setup-patches# O3 V+ F: g  A" V1 Q( ~, {
  create-turtles 1002 V8 ?7 X- J( G. ]
  do-plots2 J9 J8 a) {* V6 c1 X, {
  ask turtles [ setxy random-xcor random-ycor ]
& w9 s2 v; y4 zend! ]- g1 S( p( Y, r4 U* i* ]9 y
to go' @5 ?8 f' s( v% q. d2 k( W
  move-turtles' l6 X% K/ U% v& z
  eat-grass
2 ~# ?( r$ {# e# w; G; q3 p* Y  k& s  reproduce
& E( E6 Y) {7 r' n; s  check-death9 F# J3 n3 h- L3 C
  regrow-grass- H4 {; |7 _3 N. D* b  V
  do-plots4 E( v2 }4 A) V" I  t
end
5 F7 [( g* U* t7 Bto move-turtles! D; z# ~% q, j6 R  C
  ask turtles [& O: w/ \1 @. `5 E8 p6 i- z) _
    right random 360' N3 t3 E" p+ k7 _
    forward 1
3 ?  r% r) b4 B% @" x% j    set energy energy - 11 F5 P$ M9 d8 B! v  R
    ]
+ ]0 N0 y, \: L* J- wend
3 _' s4 \9 g  S4 L; J6 ^9 f& k& w# Eto setup-patches! E, m: h7 T" I3 j% K/ O
  ask patches [ set pcolor green ]6 E# p3 ~& l& L
end
' L7 T* N3 \. ?. O" sto setup-turtles
3 w, b# Q/ Y* u6 ?: H& i  create-turtles 100
* b9 I! i# }# P/ V! D0 w: d3 `$ C& Y  ask turtles [ setxy random-xcor random-ycor ]4 }, @& Q2 f/ o' ?
end
4 i; O# C1 _% \' Xto eat-grass0 k9 T& q) W5 Q' i7 A9 P" P
  ask turtles [
0 O3 G% o9 z5 s3 B    if pcolor = green [# [' X7 T$ L9 V9 d9 ~3 F
      set pcolor black- @3 e9 w; G. D" r5 A. N- G
      set energy (energy + 10)# W" v$ I1 T7 G0 _& i) N* M
      ]& V4 E1 d- @7 R8 v
    ifelse show-energy?0 v' l+ J% O3 t  l$ O# `
      [ set label energy ]6 Z& G& l  s+ f+ j
      [ set label "" ], H: l! b( `9 `2 _
    ]4 D3 w8 H, o9 ], M7 w6 C& R
end' Q1 |0 _2 ^" Z) v: ~$ T6 `
to reproduce4 t# Q; o" M( C
  ask turtles [
, O( ~* s, V9 e& G3 T3 m: N7 c    if energy > 50 [
& q( X2 W* E) Y$ _      set energy energy - 50& z, u" l$ m# T, U
      hatch 1 [ set energy 50 ]
/ F, _7 u, ]! ]& l4 z      ]$ ~9 ^+ R3 ~* N6 H8 e9 V
    ]
0 t0 X! ~% M# T+ I1 I, I' Qend
2 k; a( u+ \6 N7 s) e/ `2 t- o" Xto check-death
3 u( }5 H; Y6 a7 A1 o0 u  ask turtles [% u3 E" f$ a  P+ L5 ~
    if energy <= 0 [ die ]
& W+ c" K: J- I$ a9 F- Q    ]6 j5 n6 \8 L( w) A9 e6 v- `
end* H* p. c  f% E; i
to regrow-grass
2 V' O& I, J1 d( ?  ask patches [" t3 J0 V3 p. b( q" W
    if random 100 < 3 [ set pcolor green ]. l+ U8 n$ o5 E* s& I
    ]2 H% J- _# [. p. s  t2 P
end
- N" i- h% T) _6 x5 a- H& D# {to do-plots
" M# K/ C, \* ?2 v, y$ M# l  H  set-current-plot "Totals"0 C6 t. {7 I) X' g2 G1 j4 L
  set-current-plot-pen "turtles"
# w& _" o7 d7 V0 M  plot count turtles# Y5 }- y9 s3 L4 X
  set-current-plot-pen "grass"
7 X/ j  f' c& r4 k  plot count patches with [pcolor = green]) ?; a4 k9 s1 D# m3 B3 ^# t; J
end
8 d4 g6 o) c" G6 N( ]+ _) t( {" P可是运行时提示no such plot: "Totals"1 w- W- T# ^, G, j
error while observer running SET-CURRENT-PLOT: N3 }4 t9 N1 S3 J6 |# ^' ]0 T; z+ v
  called by procedure DO-PLOTS' |8 i! z+ t, v, w+ b) _7 @
  called by procedure SETUP+ N$ c3 {* r' e2 ?/ q7 D  W5 Z( X8 ^; `
  called by 按钮 'setup'% g  t3 w6 V. Y
求大神解答啊
发表于 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
/ F- n  B6 F& i. ?建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-23 02:03 , Processed in 0.018454 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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