设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11846|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 l( e/ |2 G$ ]* S3 S& L# \& Vto setup
3 O% I$ J; i; L3 D  clear-all
' q0 D: J3 D9 V8 ?$ t7 Y  setup-patches
& F) j) e1 R4 a* j  create-turtles 100
3 s! v, V5 O/ D2 {9 S4 J( H& \  do-plots
' f# C+ M/ d3 e3 V) Q) k5 t  ask turtles [ setxy random-xcor random-ycor ]
! N1 P& ^5 @( Z- j. N) Z  w6 ^( E# t+ Qend
+ ?: g+ v' c6 U' U# H3 wto go6 F5 j$ }3 O2 D7 {
  move-turtles1 N% p1 M; H# p9 W
  eat-grass
: o8 d0 m6 U! _9 H5 V  reproduce
. c" D* g9 W" J3 G0 ?7 P  check-death1 r1 G: p9 W, ?/ R  m! _7 U
  regrow-grass5 p) u# x8 d; {2 y0 u  t
  do-plots) d# K+ V" {; l/ u) ~1 Z
end
* {, T& f( b! Q& B( q* U! @+ lto move-turtles/ [. A, U, v3 _* k+ e
  ask turtles [4 |5 d8 W- d) V9 c" H
    right random 360
" o' H; j9 _$ k: r    forward 1
( e4 k$ Q! Q' q    set energy energy - 1
: L) D5 G) J# O* \2 F    ]
. r4 ?3 \1 M( Q3 Jend
6 p, Q6 u, u# {' v6 D0 O. tto setup-patches  p: _- t9 C5 n0 x" N
  ask patches [ set pcolor green ]
& e2 O+ ?5 }% y( H# Aend; T& W1 I" n, F+ D: D& f
to setup-turtles8 {$ l: _' l! A- S: p
  create-turtles 100
( ?6 |. D; v' V) ?  [8 G  ask turtles [ setxy random-xcor random-ycor ]  `/ e  ]( N9 l* ?( D
end
6 Z% \5 k' U& R# k/ D. Xto eat-grass" P) \6 T7 o/ `' |5 j2 L( F3 P  |
  ask turtles [; ^' _; j) Q. }1 K! _7 d: D
    if pcolor = green [
' h# \7 V( j/ f5 `      set pcolor black4 L8 R" X# l& e0 [
      set energy (energy + 10)
. n$ L2 M: S9 v8 {! L      ]
$ ~: U, ?8 Q1 [    ifelse show-energy?9 [) E9 r9 n" E6 A5 U
      [ set label energy ]
, s) U) Y; c3 F0 r# f$ x0 o1 \      [ set label "" ]
2 @! P# I1 Q# q/ y) T$ ]    ]
8 I. L9 D; e* [0 m5 x. C2 A# Send& E% E6 P  G7 g8 c  i( I
to reproduce
) G- Q9 O" u. E9 Q! q5 O$ m  ask turtles [
1 ?3 U$ [. N; z    if energy > 50 [
0 R% O6 o0 ?) F; [4 U9 v3 x      set energy energy - 50! Y7 ?/ |  Q* M+ A4 |7 G% I
      hatch 1 [ set energy 50 ]
4 a/ X- `" Q7 T' x& l# D! E8 h( Y7 t      ]7 @9 S3 G+ d. i" o: n  ^
    ]' A) H0 T" J7 w4 R5 G
end/ A' E& {! K  h" M) `/ _3 p
to check-death
4 J' N- v" l  ^+ i% q  |6 V: c! Y  ask turtles [
: n/ q5 K6 ?1 j    if energy <= 0 [ die ]
/ B8 r+ O1 Q$ u- V    ]/ ]$ D" R. _  D/ l: a* I5 v
end
" M( q# j, Y! }  Y, V. o  v5 H: lto regrow-grass
) v4 L* W. h# T) Q% Z0 t  ask patches [5 B8 H3 J" o+ h1 _% z  B
    if random 100 < 3 [ set pcolor green ]
3 \2 L# G3 A( D    ]
' F# s% B% u4 Xend
6 y+ j3 H6 Y" _to do-plots
6 _  {5 l' h: |. N: p  set-current-plot "Totals"* y7 E- \7 y/ |( `. v3 k
  set-current-plot-pen "turtles"1 P4 @9 j3 ?( Y- L
  plot count turtles
" i  `1 J4 e/ {2 T, ?  set-current-plot-pen "grass"
. U& T, J+ i) W  plot count patches with [pcolor = green]
; W9 N3 J  p: P' vend, @+ s# q" d/ p  I) S1 `$ k3 z
可是运行时提示no such plot: "Totals"
$ ^* Y6 a4 Y8 r( Z5 Ferror while observer running SET-CURRENT-PLOT
. C$ k: V: q; _& ~& X3 P$ G  called by procedure DO-PLOTS
7 W& w& b% V3 ~4 m; u  called by procedure SETUP7 z0 ~+ p( {- I' z+ U9 z
  called by 按钮 'setup'
5 Z8 D5 \9 Z- B5 d; L  `求大神解答啊
发表于 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 * i; i' H8 ?9 r% A! S2 n. X, b
建一个叫做叫做Totals的绘图框就行了
/ r. W- q# I! D. Q3 \4 h' a
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-5 11:28 , Processed in 0.014097 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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