设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9722|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) N3 p3 M. N! j, l" k6 Tto setup; s* R5 ^; v$ z8 r: V
  clear-all& A/ ?$ f) @; ^7 ~( m
  setup-patches
$ ~2 \5 P& D: `. f- [2 y  {  create-turtles 100
* O2 U2 Q$ O( W, l  do-plots" q1 ^4 c9 c+ N9 H" D
  ask turtles [ setxy random-xcor random-ycor ]
5 {. M! V$ v( J- D  v0 send2 K* B( W/ }2 ^1 A* O8 H
to go
# K; {' m( h" [9 g; t  move-turtles9 {6 Z9 e1 v' b, l: g9 W' u
  eat-grass% D1 W! R; c8 V4 u. Y* e
  reproduce8 }' y' s9 s+ w, t
  check-death
3 o8 ~  r! \; q: \, I  [8 @% x  regrow-grass( i! j! B% c- L# W
  do-plots
% o/ N: Q8 F6 T8 ]# `. `) ~end
  B& l$ j1 z' ~, g+ D5 Yto move-turtles
' g, t5 q8 q  m4 v5 A  ask turtles [
: q8 s1 Z/ w$ |. K0 [& n& D- X. I    right random 360
! w7 o- w5 A/ T$ k6 w; D  y# b. p    forward 1
  e$ w2 U4 J0 M    set energy energy - 1
" |- @+ c- ^. x! D+ U( d. o, v6 T) W) O    ]
% r/ f( F& d6 u% ]0 e) X/ \5 `end0 t+ J% Z6 L1 l% X% i( }3 O6 v
to setup-patches  `$ @/ Z" K) c* k) R. Z5 p/ G
  ask patches [ set pcolor green ]
$ t# w8 C6 O+ X& ?; C6 [. x( Cend
, C$ ~) y  L- Y1 P) qto setup-turtles
8 m* O1 D4 t( _+ i. q, O  create-turtles 100, t+ r# C- P: E7 q" p; ^0 h
  ask turtles [ setxy random-xcor random-ycor ]
. M. V9 T$ }9 X. s3 uend
- U6 a( b* D' v8 A1 Fto eat-grass! g/ H" \% ]' z
  ask turtles [0 C4 H' [  L2 {7 L; A
    if pcolor = green [
8 G5 I5 P# A4 c+ r      set pcolor black
5 K( p" z" j; B. X$ m      set energy (energy + 10)
6 g8 V- `- o# G+ h9 P$ i      ]$ l4 H( {* e0 }' @7 `4 @
    ifelse show-energy?
0 S6 T% _4 M# r& L4 q7 V" F" r      [ set label energy ]; ^+ y8 R. }1 b& p
      [ set label "" ]" R# m$ d7 M1 U" ?! X- }- r2 Y9 d
    ]9 w1 S* V( f  q# @; I" }' C
end
3 m( b. i+ l5 ~) h/ x  ?% ?to reproduce
$ O" K$ X& D1 l/ P4 j! w+ _  ask turtles [5 A/ o2 z) D+ I$ S: G# Q! ?
    if energy > 50 [
0 [5 f' ?; ]! v7 Y3 F      set energy energy - 50
* Y/ f- F/ I: p4 D$ R: Z$ M      hatch 1 [ set energy 50 ]- M- B: }1 N( X
      ]) P9 n1 x9 `1 Z2 T% W' n6 E9 k) @* W  \
    ]
/ C. @3 ?4 C* G# {end
- u4 w0 G5 D% O; D, ]to check-death$ R5 L  n3 A2 q  L( q
  ask turtles [, X$ ~- m: v6 O7 b
    if energy <= 0 [ die ]: s, i2 D5 t' v2 s, R. T# ?" a) T  x2 N
    ]
5 a6 L  E6 U  |9 y) B  t& Pend
1 d' T4 P* o. _" Gto regrow-grass/ ~# _  n5 U: w/ X# u8 r' q
  ask patches [
, h# n- C- n8 b    if random 100 < 3 [ set pcolor green ], A& w5 S4 m3 b4 n- |$ J1 B
    ]3 ^- z0 g; T' p; D9 d* f( s
end
0 A5 X8 G1 ]7 `. Rto do-plots
4 i/ T3 j, ^) G- F9 [+ q  set-current-plot "Totals"
: K' j  s  P6 G! z  set-current-plot-pen "turtles"
2 x2 Q8 X6 ]- @3 E- K# }" y% \  plot count turtles! D5 _# {! x- J5 c# X1 b. D$ }
  set-current-plot-pen "grass"0 d1 [8 ^' q( j4 J' D9 W
  plot count patches with [pcolor = green]$ x( L1 A4 U/ T* J& f
end% D6 D/ u6 L) b% ^, r
可是运行时提示no such plot: "Totals"
0 K& R; A7 k3 {# B  berror while observer running SET-CURRENT-PLOT
( V  h, A# B! N6 _2 I0 r& _  called by procedure DO-PLOTS5 y! K+ N4 {9 |/ @0 n+ g
  called by procedure SETUP
4 ^) c6 q* J# V3 w7 b2 F  called by 按钮 'setup'
8 ?" y; }$ W/ H" \0 @/ S求大神解答啊
发表于 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 . D+ @; A, f. F/ Z1 j  S% k1 o
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-15 04:38 , Processed in 3.252054 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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