设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11175|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
2 A& X% D  E- Q  f# h( R; Y- ]& Rto setup
9 `  X$ Z4 t" C; i3 v: Q, f0 Q1 C7 D  clear-all1 @$ r6 l9 O9 z( K
  setup-patches
2 r; q7 B8 F4 S2 Y6 P# f  create-turtles 100( o; {9 u! p0 V6 j; b1 C
  do-plots" F$ U' [$ r( T' S
  ask turtles [ setxy random-xcor random-ycor ]
, ?6 h; E, Z" mend% Q) C. B5 S: E$ M  H
to go
* z# d" |7 H9 c  U4 G# R( S6 H  move-turtles
: l0 n( D) W: m' |8 F  eat-grass, S( Q4 s/ j5 z6 J' `! M
  reproduce
5 ^. T5 X# s# P  N: S9 U  check-death- _8 O5 [2 \8 K
  regrow-grass9 t8 d1 z2 y5 y, u) V) Y) T% ~/ H
  do-plots9 z) E% f$ I# Y8 C% y2 O
end0 E* @6 s3 K2 @, s8 g5 o5 [
to move-turtles% j7 R1 c: T% u2 `# G5 r& |$ w) Q
  ask turtles [
. U9 d, H1 v. b# \# `    right random 3606 `( K$ W3 z+ f+ l. V1 ?
    forward 1$ K, b  z/ |4 H3 R% d  U6 n/ q
    set energy energy - 1
/ m5 U8 f9 J8 K- _& e7 y- {    ]) c/ t% j8 e. J) q
end, E; M- L$ d  z" W: y) Q+ i
to setup-patches
0 R  d% b2 F- P# [8 J+ Y" q! h  ask patches [ set pcolor green ]
# r1 }# B( @  O# M: t4 Q8 fend' d) a7 W) @, d% h+ k
to setup-turtles
( N: Z' i4 _  {# w8 @  create-turtles 100% b: j: J# y( D4 K) D4 F9 W
  ask turtles [ setxy random-xcor random-ycor ]
4 A( |  m4 k# \$ @end, D( D8 I, x+ A0 K8 I
to eat-grass6 R/ b  h8 \- x/ J7 l+ l# J
  ask turtles [
% i# F9 `% u! m  e' D# `    if pcolor = green [
8 a" _+ M2 a- \4 u      set pcolor black
1 b- @; ~: J. h  \  y( S      set energy (energy + 10)
' ]* z8 [* ^* Z" x3 F; S4 F      ]8 ]6 K! s6 V5 p
    ifelse show-energy?* K- b+ A* e3 C5 I# X- O
      [ set label energy ]8 {( y4 ~# R4 S2 s
      [ set label "" ]6 Z) W* _! Q; @8 c$ m
    ]( |, I% A3 i) w* o# X
end6 d0 N, m8 k  u0 _% \( R; R+ h
to reproduce
9 e9 _3 p1 |0 i+ b$ P  ask turtles [
- @1 b8 r, B- ~, e    if energy > 50 [* }+ n2 D/ W- [2 \  K; l
      set energy energy - 504 v$ `; f2 |* Z7 ~9 D* J
      hatch 1 [ set energy 50 ]
3 y( f8 g& @, d' O$ |+ u      ]
- h4 u1 ~/ O5 J; A, \+ a    ]0 w* w4 ^+ r: j
end
3 X  g' Q* N- P. gto check-death* T6 _. J/ e; g2 s% Z: A
  ask turtles [
, x1 d2 h- K& m2 {/ @- Q1 V! n    if energy <= 0 [ die ]  T) {+ r7 o( i. ^, Q7 `9 J& I
    ]3 ]! z0 ~1 S  a2 I& b1 Q
end, |4 p' s. S7 L5 K" |
to regrow-grass, u9 b/ F5 X+ G  F) I) e! U0 r
  ask patches [5 R3 q1 t2 l1 ]  Z
    if random 100 < 3 [ set pcolor green ]+ v3 L0 z4 \; o$ L  x7 \8 B
    ]
( v8 z# k) A& `: [end
8 S7 s/ c. `3 S/ N3 Y) z3 Q) |to do-plots5 W, F; U8 n  f4 F
  set-current-plot "Totals"
1 Z+ o. o- t: o" G; |" ?  set-current-plot-pen "turtles"* z. h* g! w3 i/ _" D3 k7 @
  plot count turtles# Q( d5 y2 d3 d% u( Z3 p) t6 a
  set-current-plot-pen "grass": ^# x9 l- e  n" z% D& v
  plot count patches with [pcolor = green]+ [- J& N3 Z9 X0 m+ m
end
3 p- G, R; K1 `& j4 n; l& l$ |可是运行时提示no such plot: "Totals"; G7 ^( t, d" x0 z% c8 M
error while observer running SET-CURRENT-PLOT
) n& H+ Z- h$ V) K  called by procedure DO-PLOTS
* _! j- V6 H& O! w% N0 ~7 l, N/ f# V  called by procedure SETUP
  I; Q% o! p1 U  called by 按钮 'setup'- [+ S! z8 C& ~1 D, p, E
求大神解答啊
发表于 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
: F$ H0 T% @6 G2 x- Q- h建一个叫做叫做Totals的绘图框就行了

# }* i* v0 T% y' p8 w  k! J# S哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-5 16:53 , Processed in 0.020286 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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