设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12712|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 R  Y" c3 _+ E4 f
to setup' [9 l/ ?9 X0 J( {) M
  clear-all% w! a3 u7 W2 O) Y% f  e
  setup-patches3 t) S8 {5 W0 N1 U. C; i
  create-turtles 100" a$ }0 E( w; @% f9 e
  do-plots. D, C' h: i# a+ e3 u7 U5 E
  ask turtles [ setxy random-xcor random-ycor ]5 W/ N6 w9 @6 n. K' U) {. L: H
end
- L, r2 {& F1 ?2 f4 Zto go
: g7 F" `. o* s. a  move-turtles" b2 k, V. _1 j' V5 `+ V
  eat-grass
# P) ?4 \  F& W* |% o3 X  d  reproduce, ]# V, U: W8 U( w
  check-death
" z" p# G+ U3 U  I8 H& N1 y  regrow-grass# u% b7 Z$ t2 `8 W+ x
  do-plots- k6 p% p- H% x( `+ h0 g
end; F! S* Y9 a8 [, f% V6 j
to move-turtles$ Z7 v) P  h/ k: i: q
  ask turtles [
& Z1 C" h" x4 z- B- P3 P    right random 360
- N$ K, v3 l& V  e$ m3 }7 x. W    forward 1
3 }: m( v' c: h2 H6 U- l    set energy energy - 1
4 T5 V, |! ?& t4 o    ]
2 f3 B3 Z2 m6 |4 {end
. k8 |) G' M/ s& Q2 z5 @' j1 gto setup-patches4 X5 X; F* A5 Q' Y
  ask patches [ set pcolor green ]
$ q8 E0 `$ A8 E( Z- @end
1 D$ X0 c5 Z) m4 z6 v5 @to setup-turtles6 x5 @( I+ W, t8 ~0 |5 I" \+ Q2 p/ X
  create-turtles 100
8 D9 ?- f9 s: k/ w  ask turtles [ setxy random-xcor random-ycor ]" K3 U: |5 C5 s2 K. Q: Q
end! w! v4 k6 H% m: _
to eat-grass3 j; w+ N2 @' c  D. r4 H8 G9 l/ m
  ask turtles [# [' O. I2 e; c4 C* }* ?4 {9 y# H
    if pcolor = green [
7 C6 J6 l4 A# l  m) @      set pcolor black+ c4 Q* ]: \& r# k. X( U
      set energy (energy + 10)
- e. D& ~: \) O% H: P# l% m3 o- q      ]
& L8 s) s( }( l  [; q    ifelse show-energy?# k7 _0 W7 P3 l+ e7 F5 B: c" W
      [ set label energy ]
8 \1 m. V" i; Z4 t) s) Z- ]2 U      [ set label "" ]
$ M9 S! q4 h8 S$ l' G2 K; n    ]
4 \3 A! a5 t8 W% E, V8 Zend
! d1 f3 R! f7 Y% R8 T& Oto reproduce
0 v' v1 K. d# d8 m* A7 s  ask turtles [
4 }8 `* b  ~" `6 M+ P8 u    if energy > 50 [! a: \( e& w& Z8 Z9 Z
      set energy energy - 50
7 [8 M2 F- b6 ?1 G  ~      hatch 1 [ set energy 50 ]  v% E% S$ {; q9 g
      ]
9 A, Y! }( X; q    ]
' G9 }/ ?# V' C5 l, ~# v. C  Tend
! Z- F0 h3 L4 t! U# h' D, Gto check-death
. I0 p3 a- z  Q2 e% v7 V% L  ask turtles [
4 U3 ?  b6 h$ i9 J    if energy <= 0 [ die ]
, B" X1 H$ b) L. q6 ]* j3 s8 Y    ]4 F- A/ }' e: C
end0 [) |+ ~5 x# I, \( }# J. ^
to regrow-grass
  G8 p. K8 K0 q& S  \* P, V4 c9 J; F  ask patches [
# |8 I8 t) K) x5 h/ G" Q) f8 y    if random 100 < 3 [ set pcolor green ]
/ v( D: W( T* e* F# T    ]
/ F2 N- i& P9 a) n# ^! Pend! g& _. e2 K# L) G3 o8 f1 _
to do-plots3 f% H! R5 d8 b: ^
  set-current-plot "Totals"
' G6 M. `- C6 _  set-current-plot-pen "turtles"
8 G% B) z) T1 |2 T% x4 U  plot count turtles
7 d; @) n4 m* \9 w  set-current-plot-pen "grass"4 U' \8 [' P- F
  plot count patches with [pcolor = green]0 I6 C- @; {1 h' k& _" w
end3 F0 ?( c) a5 v& a
可是运行时提示no such plot: "Totals"
5 d, b& L# E. @8 G  Oerror while observer running SET-CURRENT-PLOT
0 M6 V7 t4 x# b* @  called by procedure DO-PLOTS* V$ ?+ l" \0 J  g
  called by procedure SETUP) l- x% l- R8 t1 a- d- z5 S, ]
  called by 按钮 'setup'  X1 W  b3 N) `4 n- 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 : M' s6 b5 Y  N9 X% b# t
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-12 08:17 , Processed in 0.029690 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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