设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11761|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]5 l. j6 @7 w* E  E  x9 c
to setup
, j9 V, E. ~6 T% X5 ?5 A# H  clear-all3 `0 O4 d& i- q; i9 n- h
  setup-patches( r; D: G3 }& v  N
  create-turtles 100( Z3 W1 R  U- s: K1 p
  do-plots
, j. p( D0 G4 O7 N- F  ask turtles [ setxy random-xcor random-ycor ]2 S6 J1 _$ Z" d, O5 ?, j" a
end+ @. i- Q0 A, k, c9 |7 x8 H
to go
; ]  Y2 Y% y) w( P  move-turtles
5 e- H/ g4 {" I) f) X  eat-grass, p, ~+ C7 o0 y+ P5 r
  reproduce
4 k9 ~% w1 u, f4 B$ d$ F  check-death
; e9 X% y3 s* b' Y1 H, n: h  regrow-grass4 b. f% Y: k. x: w" _) F" s, w7 E
  do-plots! g3 {. M" m9 J; u
end! M; g% d3 Y$ R. ^0 D6 V
to move-turtles
( C9 f3 c' V% I+ G9 J  ask turtles [0 e+ u6 Q  \; g' l
    right random 360
4 g. z8 G( j0 y' o    forward 1; U8 C5 T$ M! V( S3 E5 S
    set energy energy - 1
! x, }! W. O6 L2 N( P/ w. w: G% o( u    ]1 A6 a7 n! {1 u& {+ I7 P
end
, u. k6 Q) _# {0 P9 J" L! l' H1 V- l0 `to setup-patches
! o1 r4 }$ n) Z+ L  ask patches [ set pcolor green ]
4 b1 [- P5 l: }- Pend$ X: P* R' }7 i, W7 h0 ?
to setup-turtles; P8 G; i! a( L0 `  r$ o
  create-turtles 100. ]8 h: \1 p, g% S! R0 ?! e
  ask turtles [ setxy random-xcor random-ycor ]
  }& x9 h, J5 |' x: o$ cend
& A$ l3 ], Q: \/ f& a7 ^to eat-grass
; w9 m& f, a* A# l, W  ask turtles [0 `5 d% h# Q" T1 L$ W- c
    if pcolor = green [, u$ d! B3 d9 ?' O) q) U
      set pcolor black: F( ]; a8 u  A" k
      set energy (energy + 10)
9 V" c5 {9 D& ]: D/ ?  d" q      ]: `2 l2 D- ?7 X5 h% ~4 a! D6 d+ C, e/ \* K
    ifelse show-energy?$ [' F+ z, ^. B: {3 x( a
      [ set label energy ]
# q5 h/ j) ~1 O: |      [ set label "" ]
4 A3 p' @& B$ J' N    ]
$ [! z4 B- p# ^. E: Mend& {7 u6 \. I3 Q' a
to reproduce0 B8 S; {0 @4 U3 `, q* l6 _  y* i/ Y) t
  ask turtles [7 A0 s; q. U! v8 Z7 I9 N9 D
    if energy > 50 [1 R' z. y1 V) i4 e5 C: [6 F
      set energy energy - 508 M$ \: N' I6 K: E! i
      hatch 1 [ set energy 50 ]2 G- Y4 U9 t# ~" v* b1 R# ^
      ]2 R$ s; a. l( ?9 F* f$ l+ E( q
    ]9 q8 U6 I0 Y; v3 {( _) z
end
  R: d; _4 K' I( Ato check-death4 ^% B& p' l- k# C# U+ L/ x7 M
  ask turtles [: P1 e& a+ B* _# C6 w
    if energy <= 0 [ die ]
1 G3 U3 k9 `9 L5 N* f" ~0 w    ]
/ X1 b& E6 r* [end7 F* z9 f2 `" i; d+ c
to regrow-grass
; t& R0 s; {" i  ask patches [1 S& U, J: P0 i6 C, h
    if random 100 < 3 [ set pcolor green ]
, v, j8 q% g6 B  J" F% H    ]+ T0 {; u4 _: h5 X7 E0 n
end* {( t! k! O" p: C
to do-plots
0 u) G5 G+ q+ w1 X+ h4 T  set-current-plot "Totals"
6 x6 a  R- Q, |; i9 i  set-current-plot-pen "turtles"1 k0 b& V/ x. q. V. O
  plot count turtles1 G$ B  A. ]/ h, b9 w- h, g: k
  set-current-plot-pen "grass"0 ^0 d! E& l2 V  b3 ~( g) S  W
  plot count patches with [pcolor = green]6 j+ v* w0 z( u# m, Z
end8 d4 e. h$ Y* K
可是运行时提示no such plot: "Totals"
+ j* h/ U* c" a. `! `/ Cerror while observer running SET-CURRENT-PLOT
2 w, G) h! H" q+ V3 N% c  called by procedure DO-PLOTS- C; [7 @1 C: z& N0 D# H
  called by procedure SETUP  z' P; X% v% G, T
  called by 按钮 'setup'# m8 \5 ?1 e! A8 e* {! s+ v
求大神解答啊
发表于 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 # h# t8 k! V+ @
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-27 07:39 , Processed in 0.016633 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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