设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10340|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]) j2 P' [9 L! `9 m
to setup
0 D& ^7 @2 I( H6 d& f4 T  clear-all
& J$ B% r# v2 Z" f% G* T  setup-patches
- L% |$ n( @) r9 S' V" t5 ]$ a  create-turtles 100# H1 q+ Z; O* a- G0 w# t; d
  do-plots
% \' e* ]% F# Y* n8 J( P  ask turtles [ setxy random-xcor random-ycor ]9 I4 i# s! R3 z7 l
end! k3 E- o' y( q3 n. m
to go4 ^+ \) G8 L, i& {7 v* W
  move-turtles
4 G& ~$ m1 W& I" d* ?$ c" f# o2 u& X  eat-grass/ i2 b. A# S$ b" W% h
  reproduce0 f. ]8 j0 M7 `/ B$ |
  check-death
9 l5 a" T, I% i+ [. Z0 _5 c  regrow-grass
" g' G6 U. T! C2 d. C. Q8 c  do-plots
0 X/ B& Q- b7 [, H0 Z, bend' j, l: v. o! M7 G/ t
to move-turtles
4 i+ n  D$ Q7 e, l  ask turtles [
% c4 J5 ~& \- x* U! e4 Z( S4 c    right random 360
- e4 z& m4 W7 D# x    forward 1: I' P1 G; ?3 c4 r) k
    set energy energy - 1/ ]1 J9 H8 Z( l/ K
    ]
. ]/ _5 O3 Z* r( c1 yend
/ y+ }# W* f. {to setup-patches
5 ]9 C  [% X) u. u% i) c  ask patches [ set pcolor green ]/ }  [( G$ e* `7 c: h$ y
end
7 \. ~- J# M7 h8 x6 W0 Lto setup-turtles
3 c2 j) q0 e/ i1 m" w! N% G  create-turtles 100+ T6 e2 E+ u0 m' Z4 P/ M; q
  ask turtles [ setxy random-xcor random-ycor ]
' X' U: {4 o% c9 y( ?8 D/ Pend# N9 |* _# Q6 M
to eat-grass
# D  T( ^" V3 u/ f8 `3 q  ask turtles [+ l0 f4 Y6 k- @1 D
    if pcolor = green [
. J8 ^2 I3 s0 g- |( c7 y      set pcolor black+ [3 k" S+ L9 ^, C' V0 \7 ?
      set energy (energy + 10)7 k7 t8 u: Z$ c0 x! r, J& P2 g" g
      ]
! ^+ y7 b2 Y5 k: t( L6 G. g    ifelse show-energy?
2 V6 K  ~2 p9 _+ W      [ set label energy ]$ k. U& b, ]% b, z+ c
      [ set label "" ]
7 S- r' c4 `; W# t$ V    ]2 _  h' |) V( a
end8 k: |2 A( B) v" U; @2 F
to reproduce$ Y$ u6 X3 F- B7 c( R7 `- w9 Y$ C% Z  C
  ask turtles [& M3 Q% H; J- `" P2 Y& T
    if energy > 50 [
- k5 o1 r3 a* O      set energy energy - 50/ u& H* K( n7 s# {* f
      hatch 1 [ set energy 50 ]
0 B, }( h1 \0 Z) n6 A4 h3 S      ]1 L7 _1 L: q# O, Y5 p/ F# k/ f
    ]. a2 J# B4 _7 j' h8 {' R
end! R/ X. H+ [( L1 L
to check-death% R% {' F; V& ~  X
  ask turtles [% G* C  @' r; ]  [9 O/ v/ Z
    if energy <= 0 [ die ]. m+ m% m/ F# ^5 c9 ?8 I3 d
    ]
" p% H5 O& ?8 s* zend
" m" t, X' c( X% X6 Qto regrow-grass
& d1 a* i$ s  v9 k+ v  ask patches [
. p1 ~  B& w5 J, ^4 }. q    if random 100 < 3 [ set pcolor green ]
& O; Q9 L7 g- g2 [( o    ]
4 C: }; G- r1 \9 }, I# o8 B, ^end
' b( K6 c' L+ f2 j& \to do-plots+ w5 P% ~. _+ v* x# h
  set-current-plot "Totals"9 f7 a% o* D  l1 @/ R
  set-current-plot-pen "turtles"2 S3 U6 f: T- O1 I# j2 \
  plot count turtles
4 H* \; Y& Q2 H8 U" q' ]  set-current-plot-pen "grass"
1 N& v, E; U: B9 m  plot count patches with [pcolor = green]
4 C. P+ i+ v* N0 `8 f& C4 \end
" ?" ?9 e$ ]3 T( w3 j  F可是运行时提示no such plot: "Totals": b6 w8 P6 U' R" v
error while observer running SET-CURRENT-PLOT
5 ?& f8 f: ]" Q! V* z5 F" ?% m  called by procedure DO-PLOTS. P, m6 ^* @2 d% J; \8 a' j) D
  called by procedure SETUP
: F, I$ I0 D/ L* H3 Y  called by 按钮 'setup'  n/ X: p8 i2 R7 \! M6 K) r
求大神解答啊
发表于 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 ( J* m$ ~1 @( B# ^& ^
建一个叫做叫做Totals的绘图框就行了
& P7 c5 x( R  Z2 C# f* s. O" g/ l
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-6 07:11 , Processed in 6.398724 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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