设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12823|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]- h  K6 F( X" z, b$ ]
to setup' ^" O0 _0 l: N7 I5 w
  clear-all
/ ~9 J0 z0 `' x) W- ~  setup-patches
, w. y2 d/ g0 x  create-turtles 100. j; r/ @% K6 L4 \4 z  q, K/ r2 x
  do-plots
+ W1 M9 H0 }: U( p5 F' W4 k  ask turtles [ setxy random-xcor random-ycor ]" @1 S: @  D$ U4 I5 D
end- M% q* \! m& J' f5 s$ [7 x6 v
to go
7 q  E) z6 _* v4 ~5 C8 F% J  move-turtles' h4 s/ v8 B) X5 `& y( s
  eat-grass0 k; S  _- q4 `4 V& s6 n
  reproduce3 l  E4 M+ p: d/ v: m' j( w
  check-death
- r9 w' @% N/ g! |# A  J5 }. N  regrow-grass
3 D/ Z4 t0 t! I  }0 F! d$ J  do-plots
) @# z, o& k! @4 r% @) Pend
- D& L! [  s% i! Dto move-turtles2 x  Y3 I! u2 V# B
  ask turtles [, t6 X2 \: S6 T0 W1 }/ R( f
    right random 360* q8 ]* S. w  Z$ S1 u3 @: u
    forward 1# `7 r, S# G* W9 c1 b8 v* P
    set energy energy - 1
/ X; R/ I: e9 L    ]9 J) j4 @, {5 K, d
end, m' N% K" e7 c6 p, ?% h/ B
to setup-patches
' l# B  O' N. \  ask patches [ set pcolor green ]
( i5 Y' c5 o0 t. Y2 s1 s& n( {: Send) o) O$ F) ?) t$ \9 i
to setup-turtles
6 [. r8 {! q0 Z6 |  create-turtles 100
+ O7 `7 V, ?% ]$ |' Y  ask turtles [ setxy random-xcor random-ycor ]# ^- [2 O0 G. G; \
end
9 V- e0 Q. I% {/ v$ O4 S  q2 Uto eat-grass
6 e( y8 p0 D% T# Q+ i- v% ~  ask turtles [/ A; w, Z9 a5 z3 r/ p2 g$ k! B
    if pcolor = green [/ Q) G; R1 y  ^% ]! @
      set pcolor black
* h8 w- h% o4 O  }# o  r! _( X      set energy (energy + 10)
& `0 f' v# M6 y; g: n, h      ]5 P1 r4 O. G0 g2 t* d- \; k
    ifelse show-energy?
" ~* p8 V3 h+ y7 H: k2 i8 T      [ set label energy ]
5 S# b, I0 o$ o( J      [ set label "" ]1 B3 q' {8 }" d- A$ p
    ]1 h% i& f0 x3 b3 X! r" D6 k
end6 b+ @- j" M' p1 A7 }/ K! c) v
to reproduce+ n0 x! d" i' S2 g; U8 n/ ~
  ask turtles [" N" f) o( l) C& Q6 E1 _9 z
    if energy > 50 [- w  F- o* W8 Z% H
      set energy energy - 50& W( }! `  Z  _' B6 T5 ?
      hatch 1 [ set energy 50 ]
  p6 A5 w& H9 `" ^% e$ V- T9 E$ b      ]
- a. c$ x" J! T, u; a  P4 L    ]7 l5 y' [( l# A' E% P
end  D  M2 ^' b# I
to check-death
& U9 z" \; R% o  ask turtles [/ [% [& |5 y# }4 V: p$ F4 b' k
    if energy <= 0 [ die ]' F! O$ l2 f* H2 x; ?
    ]0 P0 p/ Q, V* T% I" I" p
end
- X: j! C, l) J: |! j, V6 Tto regrow-grass
) [5 ^$ C6 q6 v# r; m  ask patches [; k( K! c5 a" m
    if random 100 < 3 [ set pcolor green ]
$ t1 t! c0 `& Y9 @) D0 `    ]) X% E" j* \$ y* y
end
2 z1 ?8 L4 B/ ^+ _  D: R" Q7 f  }to do-plots' Z7 E- @  z$ a( C# c
  set-current-plot "Totals"
7 Y8 _+ q) v+ R# z3 ], |8 V6 {* f8 T  set-current-plot-pen "turtles"
- O* n' _6 C4 B' W  plot count turtles
4 h$ F$ D+ l( q( A; u! Z5 Y  set-current-plot-pen "grass"# s! I6 W. T' R  ^3 b; a
  plot count patches with [pcolor = green]. }/ z5 M* {. h8 G
end
4 O) B7 U; z: K7 l/ I可是运行时提示no such plot: "Totals"
/ |8 v) H! ]& q$ Werror while observer running SET-CURRENT-PLOT6 a) U+ W" i/ r: R+ K" _
  called by procedure DO-PLOTS
1 X6 |# u2 E: p  called by procedure SETUP. j# ~1 \2 o0 e: O# Y/ U, Y
  called by 按钮 'setup'* ^$ s6 u  G/ O) j5 _
求大神解答啊
发表于 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 ( q0 T; _; o7 H
建一个叫做叫做Totals的绘图框就行了
+ h+ b: t5 _6 a: \2 b' R8 u( r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-18 10:02 , Processed in 0.018733 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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