设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11544|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ u2 a# o2 T4 V
to setup
$ \2 Q+ K6 L. Y% w$ |. T  clear-all" ^" ]9 K7 @  y- ^8 q0 C* A( |+ @
  setup-patches
+ J, o$ f5 r- v0 P( S$ G  create-turtles 1006 ~, k- X. h7 [2 t& Q, E
  do-plots0 m. f5 G. K( b) k: o1 N- Q$ b
  ask turtles [ setxy random-xcor random-ycor ]/ ]2 ?' q/ V" r! ^; @8 g1 p; B( ~
end6 H. H8 W: o8 P: ~( z9 s
to go, H+ q2 Q7 a1 N! g
  move-turtles+ A  N6 M& W2 z9 x
  eat-grass# E( }1 L: \8 x$ |4 |7 x' n
  reproduce
0 X0 h9 _6 x: z6 B+ F  check-death
* t$ x& a. N' S: o  regrow-grass) A, q7 p' d: z" O1 U
  do-plots
4 C) }& A; g0 _. W% R" u. w: Fend3 }& x, i8 a- G9 W6 I% h$ Z
to move-turtles$ P6 b9 v4 N- _9 M' W: d
  ask turtles [
# J4 M/ Z5 h' k    right random 360
, \& Y4 W8 {) S2 h, \4 Y* J9 w    forward 1! z" j7 n3 [* k4 ]$ P: R. ?
    set energy energy - 11 X3 `+ E. d4 S" A
    ]7 r. G( k9 u# W' n9 S5 I
end" ]( w0 o6 o# h& D, v
to setup-patches7 G9 C$ v: H0 {( F( s6 s
  ask patches [ set pcolor green ]
% q, X# h2 s3 z* U4 ]/ z0 Rend
' Y) {! F9 Z/ l% Y* g0 j( n1 x: ~to setup-turtles
' Z$ @7 J& _1 S& }5 |/ \; w  create-turtles 100
8 f9 [0 }$ n9 q" c2 S  ask turtles [ setxy random-xcor random-ycor ]
1 U# E- P5 W8 T) g. `end
' d! X: ^% s5 O% nto eat-grass* H  t0 J1 H: S' W5 `2 t' U( S
  ask turtles [8 p3 v3 U& d. H3 s( L2 Q
    if pcolor = green [
1 J5 ^5 w! B( F. e6 h# Y+ A      set pcolor black& d' i- \/ K# a% N  k5 Y
      set energy (energy + 10). @4 i( \& I* ]8 R& t! F! Q5 J
      ]
' n5 T0 o- C$ J3 I3 d0 G    ifelse show-energy?
) F: v8 d2 h; ^8 L+ P/ Y0 B: V      [ set label energy ]
* o+ y- V6 P$ M/ ^* o, R      [ set label "" ]
) l$ V! l$ L/ A* S+ S, Y    ]- {0 M3 O; m8 B  a- k  d  `
end
6 J; @3 s! e6 e: j* \0 V) P2 c8 fto reproduce
; r) ~% l% D% D+ `$ N4 |% Q8 U  ask turtles [
! d1 h7 A% c2 k7 ~    if energy > 50 [( M5 A  R8 V% d1 B
      set energy energy - 50! [8 d3 D6 k2 F/ g+ @- V4 x  H+ W
      hatch 1 [ set energy 50 ]
9 J) [& n% {( G$ t) s4 L$ a      ]( d" B$ B: }" f1 G! S1 k; m3 Q8 H1 X
    ]
; l2 L' {! a) h. ^: ]end
- ?# [  }- M1 d+ rto check-death/ J: o' b" [% C7 O* \3 X
  ask turtles [" W9 E. T" J  ~
    if energy <= 0 [ die ]/ t/ y' D4 O; K
    ]! n+ N9 G  V6 a  c' Y  e
end1 m* y4 S" A, m7 a
to regrow-grass+ i9 r; w4 ^9 C8 h6 R: ]
  ask patches [7 t' V( k2 u% Z8 _- {) u3 y
    if random 100 < 3 [ set pcolor green ]
$ r, x5 G$ H3 S5 `* [    ]
3 r, W( j: Q; v& j7 w' }) C6 ^end  u/ @$ L( W  e  p% V
to do-plots2 N" S! v$ w$ |6 S( q5 D! Y% W
  set-current-plot "Totals"* F* Q6 P& J% M2 ~
  set-current-plot-pen "turtles"( V% Z7 T! w1 m4 B6 P2 H
  plot count turtles  x/ E; G; |; E; A3 m! e7 C+ a3 t* T
  set-current-plot-pen "grass"
, b, Y6 s+ `, m  plot count patches with [pcolor = green]
# }2 [3 }$ Z. T& Cend( U$ c& t: y3 p/ i$ {" [
可是运行时提示no such plot: "Totals"
3 F2 x& ~: v" G( r7 k# Derror while observer running SET-CURRENT-PLOT8 I- u) L7 e8 p; t: ?& o3 R. r
  called by procedure DO-PLOTS
% e3 {" m' l6 J/ j9 m  called by procedure SETUP( Y7 P( [5 W8 `; h- {+ N0 M
  called by 按钮 'setup'* t, b7 f8 C2 @7 F) v9 g8 R+ n
求大神解答啊
发表于 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
6 i- I7 X) y+ T# O; q* ~建一个叫做叫做Totals的绘图框就行了

* X2 b+ T. f8 q. G9 O. U; O哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-7 13:17 , Processed in 0.021063 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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