设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9361|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 y" B' [- v# N, vto setup1 h) v- B2 [5 J/ U
  clear-all) q* K- d: I- W( J) K/ U' z; h
  setup-patches
' J; d( P3 V/ O; y& `# V$ Q' s  create-turtles 100" S& E' V! P6 V$ X
  do-plots1 J" z; |. Y- z- l  |! E
  ask turtles [ setxy random-xcor random-ycor ]
7 X: ?5 ]! t, R/ \, o( o3 eend* h# u3 ~2 m! J* W
to go
2 [6 k* [$ Z1 _3 O  move-turtles" ]" T% u5 i+ j6 n2 R
  eat-grass% o, [$ m1 h, ~4 F
  reproduce# S  h" Z4 ?, R: D$ Q
  check-death) X$ m4 W+ @' n4 l, W
  regrow-grass* t6 |: K5 u5 J/ {
  do-plots
4 O* [( T) C+ J  H( L. iend
& c* [5 }% J& l! Dto move-turtles) S5 _6 Q; ?2 d% e" p
  ask turtles [" v5 }) C* N# {! j: ?8 D3 K% V
    right random 360$ c# N6 i# E+ ]& D4 r5 `
    forward 1
1 u9 Y4 p9 D4 h! v/ H    set energy energy - 1
1 u. a% O7 j9 `3 h8 t- ~    ]0 p: {" z/ {/ P9 M: s
end( _- X: p4 l4 s' ]6 M8 e
to setup-patches
' s& [5 V! S* n9 s  ask patches [ set pcolor green ]  r' O* |  L9 T1 ~. C
end% x. |8 I5 v, I0 K
to setup-turtles8 I1 I; W) T! v: L
  create-turtles 100
4 E. E7 P7 X' o7 K$ u: [$ x4 H  ask turtles [ setxy random-xcor random-ycor ]% _7 P) r/ V' |, k# }, i" M8 }
end& j! e1 K! {9 I8 I
to eat-grass9 B1 m+ |6 j* w# Q
  ask turtles [- i2 q# E7 h& D- F" |& @: l
    if pcolor = green [
5 ^  ]) r6 t. d7 u1 @) w      set pcolor black! ~$ S, P0 [3 }) @" B# o. h
      set energy (energy + 10)! `  v5 b# @7 X+ ~; E/ X
      ]
6 `. F5 ]2 r+ o5 f    ifelse show-energy?: q7 ]& f: Q$ v5 x2 x
      [ set label energy ]
7 R+ g  x/ i" N8 _/ Q9 |7 ~      [ set label "" ]
& Z, Z0 w2 L/ W5 U7 S    ]
  |* F9 v* n3 B. g8 f! Jend
4 E! J9 W+ @1 t  O( rto reproduce
* _, F) V  r$ m: E1 E  ask turtles [; o) u) ?% V0 |' Z
    if energy > 50 [
) N/ n" n5 `; i, \, C0 _' c" K      set energy energy - 50
1 u) T% A' q$ H! O1 {1 h2 [0 ?; A' l      hatch 1 [ set energy 50 ]
0 b" J8 d, Y( ]$ r$ D" `      ]
4 ]& F7 D  J( f& ^0 M, e    ]4 }4 u% F; Q& M: C- q0 H. o
end
* u$ `: ~- v$ O; s5 kto check-death
9 ?0 ~. c' @3 s0 w$ J3 E3 I  ask turtles [
3 Q4 i4 ~' r4 F; P3 x    if energy <= 0 [ die ]
4 A: H, q* h. R: q1 G    ]  D! R4 Y! r6 s8 ]
end
: W  E' F9 q8 R+ `3 ]- lto regrow-grass: }) o2 A$ h, j0 j% P, C; ^
  ask patches [
' X1 ~' k5 ^: J* F2 L    if random 100 < 3 [ set pcolor green ]: U8 V. R# [1 l" c
    ]
' N+ v, [$ D: s, k% S" Bend
" A$ t) b: h5 E$ D) rto do-plots: t* g# v: _, l9 v6 T# |- K6 i
  set-current-plot "Totals"# z6 G  L0 b8 X" y) A4 A4 O9 ~0 y
  set-current-plot-pen "turtles"
" r6 ^8 R. S5 r4 x$ u2 K/ p0 N* H- k3 W  plot count turtles
2 b9 [/ P; j7 y+ K) J  set-current-plot-pen "grass"
6 b3 E5 J, [: x0 S1 T2 |  plot count patches with [pcolor = green]' ^$ {7 y' g+ }% k2 o& K& s6 D
end, o5 m! O+ W" o5 C* N
可是运行时提示no such plot: "Totals"
7 j) X4 d  ^6 M! kerror while observer running SET-CURRENT-PLOT2 e; @; j1 }! _. Y/ Y& `
  called by procedure DO-PLOTS- \: c: g4 H0 Q! b, p$ e
  called by procedure SETUP
5 K/ R# X1 K, g$ [5 ?( e* t; _$ n' C  called by 按钮 'setup'
; t5 I0 X3 K. B" y5 T$ b6 G5 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
* Q) ], N' }- E6 n+ j3 n1 s建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-12-11 03:26 , Processed in 0.020031 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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