设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11976|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: U4 m/ t, M  N+ Q" A& {# Nto setup- J8 y3 Q$ Y, l6 j
  clear-all/ q$ t1 d% V% p1 w1 B6 u. i* _
  setup-patches
7 J+ T( F/ k' M* j  create-turtles 100
/ w4 K8 y# V  @2 B  do-plots
- F/ @7 `' a3 |! J7 U- S  ask turtles [ setxy random-xcor random-ycor ]
) R; U  T% V8 `5 H+ kend
2 U5 @" X; r6 K6 E7 v( L+ `0 Yto go
0 O: r/ P( N0 m: y  move-turtles
4 P8 W$ ?* U! e2 Z1 |  eat-grass
$ t$ t: l3 @% q" J8 ?( P  reproduce+ ^6 |1 L1 U" A9 w  T6 `
  check-death
: v5 j* c5 @1 f  regrow-grass
7 B+ i2 R9 I! @( y- Q, w  do-plots
2 D6 l0 r. Z, t' \2 g& qend# l7 ^, Z- q& F
to move-turtles
8 B3 ^  x" _) k( }/ X& \  ask turtles [6 a* e: N- U8 H
    right random 3605 B$ F) s# l8 V) O
    forward 1
. M* |/ _/ a2 C) B6 e8 o% c' \! L    set energy energy - 1
7 e& d& c7 M$ U& ^+ C    ]
9 E5 j% ?$ k8 lend
& V7 c6 @0 u; g+ f# z( _; l1 _to setup-patches2 B" p$ ?7 ?2 ]( K  j
  ask patches [ set pcolor green ]
6 t. \0 K) r1 {% V* E( v$ i+ R- Rend
. ^8 f& {9 e. O3 pto setup-turtles7 g: ?) W  u# J: j' ?( I. d4 D0 x( f
  create-turtles 1007 k2 x! A) H" Z3 n3 V
  ask turtles [ setxy random-xcor random-ycor ]
7 _$ ]1 F- s- n3 F8 O2 aend
% ]% m7 D# |8 y5 bto eat-grass
5 S' `: m# y0 G: n, S  ask turtles [: J  s& r- B1 A* `
    if pcolor = green [
7 P3 x( T' c) I; \3 I4 `      set pcolor black
; ?  Q% B  ^" [9 _$ l      set energy (energy + 10)
7 Q7 v' `% a5 S. v1 A* P      ]
4 [( r- J0 q# A" z    ifelse show-energy?8 X4 v! Q3 K7 o9 J" _% Q; c3 x
      [ set label energy ]9 X6 v2 Z9 q1 ?: H' d
      [ set label "" ]7 N. p( t' t- s8 U: H
    ]4 u% y/ g' {( u0 H' Z+ d
end) D- z; w! s; W- l3 [
to reproduce& {. ~. Z3 }* f  q7 }
  ask turtles [3 v) x! u  {* [5 `5 N6 P* _3 `
    if energy > 50 [" H$ O  ?/ Q# h6 X4 ?2 a
      set energy energy - 50
& L. s1 j. x  [1 R! F+ y      hatch 1 [ set energy 50 ]3 x7 n7 [9 c9 l0 y
      ]
* l8 B& b! f0 w7 x    ]5 g* C$ p! ~1 e, E+ m' O# {  Y, W/ G
end
% }9 j5 ]& q6 Hto check-death- I6 o' {% D4 \$ E
  ask turtles [
3 @: w$ T4 L9 C    if energy <= 0 [ die ]
, W3 Q* P8 M) k5 e& o    ]" N6 R. @8 N' t/ g, r/ c+ e
end  |9 D) m1 }- r# E  Q8 O% s
to regrow-grass
2 l& J6 {- S. f0 {0 {, s  ask patches [1 j+ n4 I  \1 R/ Y! c
    if random 100 < 3 [ set pcolor green ]
) o/ w, _: Q2 G6 G4 o    ]
) T( E3 i$ {8 g9 P6 \# ~end* x* L: S" R* D% \7 O1 i2 M
to do-plots
; o! n- H- w- W( v1 s  set-current-plot "Totals"
2 Y9 b% x5 E8 T. ?  set-current-plot-pen "turtles"! ^: R8 _/ P/ Y( ]4 z% ~* F5 r
  plot count turtles/ t, l4 M; A# V% d
  set-current-plot-pen "grass"
3 I5 B! _2 ?8 K' v0 `, f: d, L  plot count patches with [pcolor = green]4 t; T/ l! _1 e6 M% ]
end' K' K$ {2 ]1 o7 N! n1 m2 W0 }
可是运行时提示no such plot: "Totals"
% B# `; G/ Y/ V7 V; n$ m' jerror while observer running SET-CURRENT-PLOT
1 p" E8 J0 e( A2 S% P: g2 x  called by procedure DO-PLOTS
, I3 f5 J! L9 z4 Q% f2 _  called by procedure SETUP/ H) i0 N) m, P$ d( b
  called by 按钮 'setup'
0 u8 J5 _# [5 r# N' k求大神解答啊
发表于 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 r2 \. D2 A! }1 x/ n6 Y# v: `+ O建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-17 01:20 , Processed in 0.014976 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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