设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11862|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
4 Q2 q( s9 n7 hto setup
" B* D/ T2 G9 P- j5 Q$ ~  clear-all
8 Y( v! k0 O) ?; i  setup-patches
$ B4 B# Z  \4 Q5 B' O- c& m  create-turtles 100
% i' d$ H/ j4 I  M# m/ R% n  do-plots, ?6 r' W+ |# X/ j" E0 h
  ask turtles [ setxy random-xcor random-ycor ]
, O, S* Y  J0 L  n4 s$ ]end
( y' [8 [% t6 I8 @5 ?3 Jto go. A/ x$ X4 {, t% P- \
  move-turtles$ F6 I! t# k1 i8 ~
  eat-grass
% \. s+ U5 b8 m3 z2 q  reproduce0 T9 o/ a- N  y( W
  check-death$ ]+ N2 I( H0 ]2 r2 h
  regrow-grass
7 n6 L: T; u3 I: l/ v  do-plots3 W1 y! D8 _0 O' J. L& E! h
end
, P9 n- D$ G9 \% x# t  U3 Lto move-turtles
* |' N5 R% P# h4 s  ask turtles [
: `/ G  H" D& S3 u8 r, x/ d( N. f    right random 360
1 @5 x- r) |- c$ i+ ~    forward 1
  N: m6 C1 a5 G9 Z* K- K    set energy energy - 1
- i6 d1 q& m3 z' f) ?    ]
+ z' R" a3 N3 m! o6 Eend  W  k# j, B6 N8 X! j
to setup-patches
+ M: u- G: c3 X  x5 R8 q* \% \  ask patches [ set pcolor green ]' G4 A% `) n& _! p! _( u
end& ~# Y) Z; G8 Z+ l$ w
to setup-turtles" X& Q% u9 n' z* p! P
  create-turtles 1001 x9 u4 B( _( A
  ask turtles [ setxy random-xcor random-ycor ]
6 \! k& U' P/ t3 g: r1 @end7 q0 d8 o* Z9 y0 Q, M2 Y
to eat-grass' E3 U+ J/ u! k
  ask turtles [
. @: E% y. q) X    if pcolor = green [3 W3 d0 z7 V! ]9 m
      set pcolor black, R) O; E9 y/ G5 o, c' U
      set energy (energy + 10)5 w. k- i4 _- q! J( `" g3 \
      ]
, z3 f( v" A( X2 Q: |( Z    ifelse show-energy?# A) O+ V! [' ]: ^9 d5 ]
      [ set label energy ]" j; g. s5 O. h4 t; P6 O: \+ ]6 C
      [ set label "" ]/ T: U$ b/ @5 S* d* H) r
    ]! K- e' L. e9 Y# n
end$ d6 m, b+ b, z9 T
to reproduce0 q; b- c$ F! n/ [3 \
  ask turtles [( Q( |! i/ O, h- T7 P0 \8 |6 H
    if energy > 50 [  \/ k; i: e3 h
      set energy energy - 50: x9 }9 z) W9 K2 M+ ]
      hatch 1 [ set energy 50 ]
) O* `& U1 a; Q0 ]0 F% w      ]$ A$ |$ c' f) r+ y3 Q
    ]0 `8 D8 k; _$ m: L4 j# r
end8 E" f7 m$ P/ u8 x" X0 S
to check-death! h/ H2 ?0 o) i
  ask turtles [
9 |) e/ z# Z( p: n! y    if energy <= 0 [ die ]# k# F2 O. h- I  l( n5 w7 {3 `
    ]
: O0 @( w/ M' a6 jend
& r. K0 w# V- }+ Oto regrow-grass- L$ h4 s+ {0 `3 ~$ [
  ask patches [
. W4 |/ F: a# q8 d# S7 t    if random 100 < 3 [ set pcolor green ]" j( L8 W- ?2 f9 h  S
    ]0 Z: W- t3 m* f# L2 E
end* m8 @/ S! n6 w( Z" ]. P0 o
to do-plots: ~5 V6 M. d  w. O& T2 p7 u
  set-current-plot "Totals"
- Q* A. g$ T! q0 M! P  set-current-plot-pen "turtles"' m0 M3 K# C& W8 f+ V0 g
  plot count turtles
$ z! X# m: ~6 F; Y& ~& W8 F  set-current-plot-pen "grass"8 I& ]' S' L  }  A. S/ d7 M  f
  plot count patches with [pcolor = green]$ A  D, w3 ^' [, y3 y5 O" W6 s; t
end  m* L, u. g9 _3 t! p  n
可是运行时提示no such plot: "Totals"+ O, S& v& D. U' j5 Q
error while observer running SET-CURRENT-PLOT+ G) ]4 x7 |2 M; V' n1 ]8 J3 x5 C% @
  called by procedure DO-PLOTS
2 f- x6 W2 y' P6 t8 f$ h  called by procedure SETUP) f: [' K; M5 |3 C, W: I' Z
  called by 按钮 'setup', s% C" K+ Q2 [. J
求大神解答啊
发表于 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 5 G; P" L2 o' h6 [# \2 x, D5 B
建一个叫做叫做Totals的绘图框就行了

8 I% J. j" D$ e4 g: F2 e- `哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-7 08:07 , Processed in 0.017587 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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