设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10289|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]% s8 N3 S) V1 R- b$ c% q/ l
to setup# r: a5 M% h9 d6 T7 ~6 j) l
  clear-all5 W2 W. P, F. D* b0 S7 f! a! U
  setup-patches  h; b$ r4 U! ]# y! a
  create-turtles 100
# q9 N( p4 t$ ~% R4 U; U4 E  do-plots# x$ d  D- Q7 t5 }
  ask turtles [ setxy random-xcor random-ycor ]. W: {, w; ~, g% e1 a: D
end
0 y4 n3 Z9 ~4 s" rto go0 ^* W' k8 Q# b) w7 q
  move-turtles9 ~+ m  k$ f2 ?' f9 M
  eat-grass9 z6 W0 u  ]7 S& d1 S" e
  reproduce
, o; x% {* \5 h$ X7 ^7 ~9 {/ F: ~  K  check-death
! Y' B* Y/ p$ ~; R  regrow-grass/ \4 |6 x5 N7 d3 S
  do-plots) @% O. d# _, k- g; ?" i' E4 a5 _
end
% `$ ?& v! ?9 p4 ato move-turtles- Y7 w7 @! G+ ~- \
  ask turtles [
4 m5 y" q( i4 V3 Q, O    right random 360: N: X, r9 O; W0 f8 }5 `3 @
    forward 1% l7 Z( I8 R+ s( L' t  }4 E
    set energy energy - 1
! N- c; }/ @6 n    ]* |, ]# S: ?7 ]; l  j* I
end' `9 B( u- [2 T5 |" j) M8 ?9 y
to setup-patches  p) O4 W! e' C) o3 n
  ask patches [ set pcolor green ]% V5 d9 g8 i. m* i0 ?/ G
end0 D! z4 f. a9 n
to setup-turtles6 n* R4 m; h2 D& g$ h8 ]
  create-turtles 100
: [  ~0 V' Z0 f; k  ask turtles [ setxy random-xcor random-ycor ]
- y4 c4 l  j5 A* N& Q6 O9 `end
, \7 }% i( N2 Z1 \% Xto eat-grass, \/ c8 x1 M8 h9 n1 a
  ask turtles [
1 L+ B" j# Q3 U' K    if pcolor = green [
( c! _, r4 a' v- i+ N      set pcolor black9 y4 `* S8 O( a8 `0 S
      set energy (energy + 10)
9 }  E$ i: |9 l0 Z8 G% E      ]) p5 q# s$ ]# F* ^
    ifelse show-energy?
! G( p, L' N( C9 m$ {      [ set label energy ]
3 _3 Q& h& y( U' ^3 l      [ set label "" ]
% E) O5 z0 `) f* s- W    ]
7 d6 W2 q9 O3 _& Q5 c1 ]& n3 ?end0 c' m" @8 |) Z
to reproduce
6 x( x# D2 K" `  ask turtles [* J. V7 O  w7 Y9 {) b0 N* X, X1 A# x4 R
    if energy > 50 [+ G8 U  P8 J% r2 R! y/ |8 s1 D
      set energy energy - 50
! u6 v2 h4 G% b9 S1 i1 S/ w      hatch 1 [ set energy 50 ]6 a/ f+ B# N; \- K
      ]6 r4 s" u5 G% x$ Z5 h) `
    ]7 ~. n1 h6 u% W6 I4 F
end9 P/ Q0 M- F# F
to check-death
; H7 n# o8 J9 j* o; c, x  ask turtles [8 }& z( ?* r) M; R& ]+ i
    if energy <= 0 [ die ]
" R" M2 G9 z3 F& C8 x. R# |$ |3 @8 q    ]
9 ^" W- A$ {) ?- Bend4 V  h" e: U) |3 ?6 X6 ~) ?- a$ C1 V/ u
to regrow-grass
$ _2 f. [) O: }& y  ask patches [
" N' ^8 C) b7 z    if random 100 < 3 [ set pcolor green ]: ~2 c  Q  w" c6 ]
    ]
5 C& |1 B: c& B4 c/ e& s9 Z8 Send! v; x# \% o& r$ d/ q, M# U
to do-plots
5 ~8 A( ?$ d  G  U4 g  set-current-plot "Totals"
, ^# {3 Q  i0 }8 l, B3 R  set-current-plot-pen "turtles"  O! F  W) [8 d5 G+ k
  plot count turtles# O9 Y$ D& ~* ]) l# E
  set-current-plot-pen "grass"
% A; W$ s' Q" b! ]  plot count patches with [pcolor = green]
9 J* O! F5 b7 B; dend
/ L" \9 R0 ?6 Y* V- G  ^可是运行时提示no such plot: "Totals"
* e, t& z4 ^  A8 e0 K8 v* Y$ lerror while observer running SET-CURRENT-PLOT' G1 Q3 y) Y  i5 H, D
  called by procedure DO-PLOTS
- r( M3 l4 x* O* m2 u8 V( p, c  called by procedure SETUP
" h& s8 ]8 a& D$ g1 I, u6 c  called by 按钮 'setup'- y5 u/ S9 f/ t
求大神解答啊
发表于 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 Q; d, y5 N& P
建一个叫做叫做Totals的绘图框就行了
- \; m% j$ k$ H6 R# E& S. E6 F
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-2 08:53 , Processed in 0.017316 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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