设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9860|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# a' v* E! k6 y5 T& [to setup3 p# z! J* F7 M  P
  clear-all7 T2 X, l2 `9 s3 s5 p6 r8 r( s1 |
  setup-patches, h6 g9 R# u7 E
  create-turtles 1004 Q2 u  A3 x5 |. ?7 F: a
  do-plots8 Z3 {: b" S- ^
  ask turtles [ setxy random-xcor random-ycor ]9 f. X$ W6 Q. ]0 p
end- o* I: c% y8 J$ Y& J5 z
to go
/ D3 _, K. p+ \  E* W* |* n& }  move-turtles# ]; R$ O0 r' U- P
  eat-grass
$ s" u6 H7 [; j  K9 t0 l1 p  reproduce
. n7 \4 u6 p6 H6 U8 f; G  check-death
; ^- m% w- P; V! r0 d  regrow-grass1 g( J* `; G; G, I6 t1 y
  do-plots
  r8 Z; e1 ?. Z; z% _( p7 Nend
' ]. o  B9 w+ L% uto move-turtles
4 ^+ t; B: d- F  ask turtles [/ [1 A" C' s# o9 G& ^3 A0 k+ r' f
    right random 360
7 H7 n5 y  k5 O/ Q5 \" e( j4 |    forward 1
9 u- Y; N; g! j3 K    set energy energy - 1
/ s# l0 Y  o, X# F8 a$ n, Q    ]$ |7 y- F' n' Y2 S- A$ ~3 q" F! w
end
4 a3 e- y  t% C0 }( cto setup-patches+ f# M- a: _# [' I& x/ B7 v3 [
  ask patches [ set pcolor green ]
9 E! V. u$ H1 l8 uend' \7 G& j' `' C' y6 y* a
to setup-turtles
! U% ^3 n. x3 Y  create-turtles 100
; c& Z* Q: ]- F! m0 b& w  ask turtles [ setxy random-xcor random-ycor ]; \) W$ d* W9 H
end8 K7 G) v7 {* O% ^- F0 F
to eat-grass
( `( q0 T; _, a, q+ {; \  ask turtles [
* o# D* J6 e! e# m; I    if pcolor = green [
' F6 U& n' ?" r9 z      set pcolor black
7 {+ }* ~! P# a; ]5 [" i      set energy (energy + 10)* U+ d1 g$ ~/ X; N  a
      ]
; u0 r# V" \1 a; @    ifelse show-energy?6 S( M! p1 h1 W% S+ J9 \
      [ set label energy ]6 \6 m, v$ c; Z, P0 e
      [ set label "" ]
8 E2 ^+ u! s8 p    ]
+ \" s6 e) K& L# m& n1 j+ v) Send
. I5 F+ g2 O9 b/ j3 X, Lto reproduce
5 E$ x- F& O- \, j& |  ask turtles [+ s7 i& C8 Q/ N; ~) ^
    if energy > 50 [
( o* Q. |/ K2 Q- j6 S2 C      set energy energy - 50
" _* m6 D; c) G8 G  r      hatch 1 [ set energy 50 ], s5 [4 h7 l1 D- B5 U
      ]
7 Z; F9 C! I7 h  i2 s& I3 B; N    ]5 }% B* i) o& x
end
/ ?- G3 ]: f" ?+ oto check-death. [5 B: J, E) ]
  ask turtles [% \- H! V8 A. {3 k% @
    if energy <= 0 [ die ]1 }( g0 l3 A9 U7 c0 M7 c! R* V
    ]
% ?% N0 s/ i+ Zend+ Y; `+ M  p1 q* _6 {0 w# m
to regrow-grass9 Q9 ^# \+ W2 d: R/ c- V- c
  ask patches [
9 r6 I1 X5 C( N  u    if random 100 < 3 [ set pcolor green ]
6 g) C8 @. q/ E# d3 J/ c6 y    ]4 D4 ~+ i7 U- K" ?) l
end2 }4 @! ^, Y3 Q( `( G
to do-plots% I6 P  z# L: G6 L( e
  set-current-plot "Totals": N) ]8 n: v% q/ Q  w
  set-current-plot-pen "turtles"
7 G2 B* b( C, n6 Y  plot count turtles
, ^. q. a. N5 E- w  set-current-plot-pen "grass"
; M' o! Z' c5 D1 Q, }7 t5 D- q  plot count patches with [pcolor = green]+ w( ]" e7 ?& c% @, M; C6 K
end) a$ c3 m; u, N1 i$ t. S
可是运行时提示no such plot: "Totals"
# x) ~; X  T; V; g- h- ]/ Werror while observer running SET-CURRENT-PLOT" L, g9 C; H1 I. c' |
  called by procedure DO-PLOTS
9 W$ h4 [- J2 S5 f& p  called by procedure SETUP+ \- d/ h' P9 N& d2 k
  called by 按钮 'setup'7 g3 Z5 {  r& C! p. ~. 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
: c6 A% p" \+ B/ P% f8 v- M建一个叫做叫做Totals的绘图框就行了
. O. H7 W$ L: \; D& r/ w- o) s
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-27 11:06 , Processed in 0.017603 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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