设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11594|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, r8 b7 b# R$ h  Zto setup$ e0 _- z* m% r- P( i- ~# A/ p4 d
  clear-all
& V: q: w6 ?5 o& v: X  setup-patches7 p* y4 ~  K. s3 d
  create-turtles 100
' \6 \/ R5 v6 e0 ?4 F  do-plots
! R; M0 Q  b  C" W9 t  U  ask turtles [ setxy random-xcor random-ycor ]
0 E# z+ E$ U( }9 B1 V( C# D5 uend  n( p8 k$ \2 l  W" A+ ]( w
to go/ a) _4 Q+ R1 a9 N
  move-turtles3 F. G) `, r: R
  eat-grass$ _+ z" Q' P# O
  reproduce
, K$ |5 {# v# i; R; D  check-death  n" D5 D$ y1 s# V
  regrow-grass
4 W5 w; Y% G8 g$ R+ }  do-plots- @: E% S- s  g, q) O7 n
end8 G0 d8 |2 ]4 U7 t' a& W9 V
to move-turtles- Q+ s1 D% f( l0 H- x/ m
  ask turtles [! h, V$ s( j2 t. P$ P* R
    right random 360! P6 G: O! q* y
    forward 1
3 A8 l9 Q/ D& G) I" F    set energy energy - 1) R/ d+ B0 a5 g6 s0 n
    ]
5 b; c1 ^0 i! L$ l( ]" Wend
3 k$ D3 {' {7 nto setup-patches
7 v8 x4 N' r* h8 [  ask patches [ set pcolor green ]
! f) T. r2 Q4 t, z- G4 |, Xend
- g9 E( a; }7 n4 u8 F0 Ato setup-turtles2 s, i& G0 _( C/ ]0 J# L
  create-turtles 100+ v; z, W( i- I5 Z! d3 F* }* Q
  ask turtles [ setxy random-xcor random-ycor ]
, p6 o; S% x5 _3 x) s  rend
$ n$ ?8 T5 I0 W, @' B$ _to eat-grass5 d7 |  j; j8 F2 C) s( q
  ask turtles [
) {# b# T8 R' X+ {    if pcolor = green [
4 ?! b. I# S; }( A- G6 G" M, b      set pcolor black& k+ V; V! {  p5 C3 B# X1 p' Q; _
      set energy (energy + 10). W+ K# U6 V* K5 v8 L1 I
      ]: e/ h, i! N# \. W; m
    ifelse show-energy?$ I. p' W5 b( `
      [ set label energy ]
# D' n4 q) }* J/ O      [ set label "" ]
6 I" Y) V2 q! d9 [0 t" v' s    ]- t" Y; v, }+ w% Q( H! j; ~( x/ ?
end
+ Z) a; v, t% G& F& M) Cto reproduce/ x/ F  C8 D8 _) i1 v  y0 f
  ask turtles [  c- p4 X- V7 w( ]
    if energy > 50 [/ `3 V/ ]9 Q* d; k. ~& b
      set energy energy - 50  ~! S6 x' J$ \2 k0 N! f: a
      hatch 1 [ set energy 50 ]# A7 {" `5 ~3 i9 l% k
      ]
! s% X/ z* V- k9 n+ z) s! V4 ?    ]- m& P1 G; P' z. \
end' C' ?1 k: K) Y9 S# G# M
to check-death
, I1 \, C: L/ F$ H3 D: e  ask turtles [0 q4 t2 ^0 q2 w/ U
    if energy <= 0 [ die ]- O; d2 m: d  X6 }" i  b4 o. R
    ]
$ [, L: E: y  d$ t  r& u* Pend9 U& u8 _) \9 a: g/ R
to regrow-grass  |* \9 ~- Y+ s/ f( k" z
  ask patches [: a& d8 Y9 j: F" e  ?% h* g- H( A
    if random 100 < 3 [ set pcolor green ]7 V7 T! }% `3 B4 I- e, [
    ]4 m  o, ^8 G. |+ f" x& n& v- w
end( r9 ?  w  h  K& O9 S# C
to do-plots
8 v9 q/ i! |+ ^3 `+ r& Q  set-current-plot "Totals"
4 B, Z& D* H/ l% H  set-current-plot-pen "turtles"' t9 X  S6 X2 h. v1 \
  plot count turtles* T+ ^6 a5 h  T5 L# |1 p! u* Z$ c; p. M, ^
  set-current-plot-pen "grass"
& O- x# |* b8 A  v& @* t& `  plot count patches with [pcolor = green]/ P+ Q% F$ {* _# i5 r$ v. S7 H
end8 y# N; |4 Q  y) L! H. E
可是运行时提示no such plot: "Totals"
+ b* `+ a/ r9 x& e  yerror while observer running SET-CURRENT-PLOT+ W* c2 U) G, F$ E7 L8 s& }
  called by procedure DO-PLOTS
& t) [; v1 r6 G) ]  called by procedure SETUP
5 M" V2 p  W5 |+ p3 b" k" G* N: y  called by 按钮 'setup'
! p$ |! C/ b( @  s求大神解答啊
发表于 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
; ?1 U& Q0 h" Y: n! v: L! L' L8 j+ Q# O建一个叫做叫做Totals的绘图框就行了

6 M$ D: ^# |9 n1 Z& Y哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-12 10:19 , Processed in 0.015063 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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