设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10299|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
  R" _' z0 u9 ?" {+ N. W5 nto setup
5 _) W" D! ~: T1 R! F  clear-all2 M( X3 Q% z: ]+ J7 v
  setup-patches
8 y/ p( ^+ h# R; n9 h' b  create-turtles 100
; X  v5 s  }# J+ {" o0 `  do-plots+ D: Y0 |1 D# m, W) i( {0 e9 \7 g3 i
  ask turtles [ setxy random-xcor random-ycor ]% R1 A  j: u, W
end: r& @- ^% u2 p4 C- L
to go) ]# E- W- a; r' v8 {
  move-turtles; C6 X2 z2 g# P) d- Z1 R+ D
  eat-grass
- d  {" S, b( p; r4 G% d  reproduce
6 Y; c' v8 F7 r( @/ K8 u  check-death
2 ^! j7 T1 m& f% W4 I  regrow-grass
& B0 Y/ j( e# U3 ~+ e' M  do-plots
/ G8 p, k+ B% ]/ J* D3 ]) v* Yend1 y+ z. d; J6 l3 J/ ]# O
to move-turtles0 [5 l3 f# N% F7 v
  ask turtles [: z. l% [! {! S# P1 O) G- p( a
    right random 360
7 |# j+ z% }- {3 |3 R    forward 1% ^! l- w+ r. R* B* v9 h
    set energy energy - 1$ w& N' ]" L3 G8 A3 V8 I
    ]
9 k4 c' r$ A- Zend
' r  \0 {: h, n( gto setup-patches
! k- e7 t; y& G% ~) C  ask patches [ set pcolor green ]
. q7 s  i* f' M9 Bend6 B# d( d- q; g# g' y$ T
to setup-turtles  c4 j, s4 [3 e! o, h% x0 {
  create-turtles 100
  Y0 w( m& `1 q* T/ D  ask turtles [ setxy random-xcor random-ycor ]
1 o+ a4 c* m& Y& N. qend
1 N/ {  J$ Q: ~4 hto eat-grass. t/ |2 B" V3 v7 h
  ask turtles [
! ~0 c( n" T. b+ W* h0 s* d    if pcolor = green [$ F: R+ D1 |; ~: u  w
      set pcolor black& F/ l. \2 v, t' ?5 a+ z; G* a" o" E
      set energy (energy + 10)
" T9 D7 b; `' e0 f. L      ]
+ B( l: l* T) @; H( L( o    ifelse show-energy?' t5 r3 j8 V3 Z: C6 \
      [ set label energy ]% G% R% {$ R' ^4 H. w0 q8 d
      [ set label "" ]
# q1 V9 Y. y) x0 I, z2 X    ]
, P0 R1 Z/ g7 h  V! Q  oend
! n: g( D5 \! R% u0 Kto reproduce
: B9 v# Z2 Y" P: o/ \# t  ask turtles [
5 Y; h. |' v' |, |% y    if energy > 50 [
6 J% t+ k' m; i      set energy energy - 50
/ i& r, Z# i* {! A7 {) b      hatch 1 [ set energy 50 ]; q( Q2 C" F; J, q1 P
      ]# d; `  w. @1 l9 x! m! `
    ]
; I, D: r; H  i; `4 t5 \1 xend
& l8 m% _5 Z# ~$ D! ~% A  nto check-death
7 x8 G* q; k3 R0 U* m8 u. W0 v  ask turtles [
9 B; q/ A8 D( v' ~    if energy <= 0 [ die ]
$ q- f4 ^6 n* Z    ]
4 N0 h, a6 w( o; x; }end+ @1 l1 s/ X: T- x% B0 d  d* T1 ?- s
to regrow-grass
' A% a* {; e) E7 C, L3 l; C  ask patches [
! L8 z- W' h. Q% z" l    if random 100 < 3 [ set pcolor green ]
( e; i. K8 s4 y9 ]3 f  R# G    ]; X; _7 L6 L9 j& @7 n1 O$ k& }
end
' Z# U+ Z+ r/ w; ^* N/ dto do-plots/ v; T: p7 A0 z. H$ G
  set-current-plot "Totals"( I/ A! U! L( A
  set-current-plot-pen "turtles"& Q. y0 V: |  I" U# [: N
  plot count turtles
+ ^! _+ c3 S. H' @; u4 H  set-current-plot-pen "grass"" I8 v8 t5 r  q, j8 B8 o/ E
  plot count patches with [pcolor = green]
" v7 H0 ]& I$ _* N# Uend
4 r$ V! E6 @  V7 ~- |' d$ B+ M可是运行时提示no such plot: "Totals"3 A! r3 i& E* z
error while observer running SET-CURRENT-PLOT' C- ~0 C5 {1 c
  called by procedure DO-PLOTS
# c2 O# b1 j5 j' N( a) y. a  called by procedure SETUP1 G" }" Z9 e$ U( P
  called by 按钮 'setup'- r6 b3 l) n0 ~7 m4 b4 `
求大神解答啊
发表于 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 ! g; t  n2 {+ `- X0 j9 Q8 Q
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-2 17:49 , Processed in 0.019927 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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