设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11556|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]* P+ B7 m3 g* H9 a
to setup# t' n1 {- k: y. F0 |" B9 Y
  clear-all
) ~" G+ \. H$ l3 P- t$ L  setup-patches/ c& S" {% h# `
  create-turtles 100
) I7 I+ N  B3 J+ o: d( |  do-plots
* ~2 L8 F  V# M  ^- g1 @  ask turtles [ setxy random-xcor random-ycor ]
7 t5 r: S, O& r+ mend+ m2 d  \; b" C& x7 S& v9 u
to go
4 C* D- L) x0 v" C  move-turtles) s+ N; H. E+ W
  eat-grass1 s' N7 z, @, P8 e" F6 J0 h0 ^
  reproduce7 ~* s/ x; S; q: T/ E
  check-death
9 M) ]7 q+ V$ h5 C; t5 f+ g. S  regrow-grass/ \' {+ o/ ^7 s0 [" G
  do-plots
0 M* s) G/ {* B- Mend- u6 g! }" G" c* ?5 @
to move-turtles$ b! v; Z4 h/ D
  ask turtles [
" ?8 V* u" R" \    right random 360
0 t0 M3 o% Z' y  ~; ]) |9 `  M    forward 1
% R% Q3 V3 g. t. [# C+ I) k- h    set energy energy - 1: c7 E3 Y# O# X3 d* @& }: Q! g
    ]2 \: ]1 H  a+ k5 N$ V! w4 a0 F1 h$ F" p
end
8 z' {. u% ]* g/ [2 qto setup-patches
& L: C" i8 l8 X% h1 U  ask patches [ set pcolor green ]
' f; g) m* ~% n* Y5 _# A* Fend
% s- q% }. d4 ~: F6 c) `& N. X5 V( xto setup-turtles
9 p' h* E) e; {5 I+ @9 `/ ~1 d  create-turtles 100: s# \, c" \# N! c. {2 f
  ask turtles [ setxy random-xcor random-ycor ]
) K* _7 s. i1 j8 X: zend
4 X; }8 g/ A  |) v) V$ ^1 ~to eat-grass
5 Y1 M' i0 D4 |' Y  ask turtles [  s" D: v, ?0 C* l& R
    if pcolor = green [" F7 j; B7 @! \
      set pcolor black
) g! ?1 f+ X/ V0 _$ I      set energy (energy + 10)4 T, O: i! q  P% {9 k8 f
      ], D' R* j$ N5 |  {
    ifelse show-energy?
# \$ i) o8 G" Z& }% J      [ set label energy ]
8 T# a+ q! d6 E3 U      [ set label "" ]
4 }2 \  d8 W6 A    ]
2 A; U4 r9 i( R( ]9 q2 l$ s& Pend3 [; {- X4 v  X$ c1 @1 ~1 P+ x5 O" j
to reproduce
% e# a- t* _. c( r8 ^- `  ask turtles [0 K9 t6 v! k5 v- ~8 O7 n4 E
    if energy > 50 [
6 D% {( h$ Z2 F: z6 E& O      set energy energy - 50
' u  o& T0 q' Q      hatch 1 [ set energy 50 ]. h  j3 b# U6 k. J
      ]6 `9 h' A0 l  p* P- c
    ]' E; ]/ a+ M2 A/ v1 p
end
2 i2 A5 v4 H  a4 eto check-death
. D2 P% ~; [8 m. Q- s  ask turtles [. Z- [: U: D4 H' m
    if energy <= 0 [ die ]5 b# @0 W; c7 T& F1 b
    ]
) {# [% ]5 V, M* x4 v0 Vend
- _1 P3 g; i, X( e/ f. u1 xto regrow-grass1 \, v. y( M) K% N  [1 I
  ask patches [6 g( b6 p' E8 d
    if random 100 < 3 [ set pcolor green ]5 ~, ?2 w4 y9 k
    ]
. l/ ?7 C6 T1 y" F, f. H3 Yend8 M$ j/ \* m: _; _' t  M5 F- C4 f
to do-plots9 ~2 \5 f3 o3 |" {# m: ^
  set-current-plot "Totals"9 H; C- q+ W0 F5 k' \" e
  set-current-plot-pen "turtles"
2 R6 u" v, \) g& A  plot count turtles
( I# a; c( F* J. F  set-current-plot-pen "grass"
' ]# V0 I4 g) B: P% M2 Q0 {( f  plot count patches with [pcolor = green]
8 U0 Y; G  q  v1 L! R% t  q4 Gend
2 R6 Z1 D# B7 u$ c. A可是运行时提示no such plot: "Totals"
4 d) o$ N/ A9 ]error while observer running SET-CURRENT-PLOT
: X. ^  c* t7 _( u& L: v  called by procedure DO-PLOTS
# D& L$ f; H9 x# V2 C9 d+ f/ N  called by procedure SETUP/ z2 V( r( I; z- X5 q0 b9 y2 k# g
  called by 按钮 'setup'1 ~; X, g7 S: x1 b6 w( K, a; E! C
求大神解答啊
发表于 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 9 J* u3 d) p! |9 Y: A
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-8 19:10 , Processed in 2.748058 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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