设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8882|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 L7 d/ y5 L7 \
to setup
9 M- `. H% M- x# w; i  clear-all* l5 i. \/ h% \  `3 \
  setup-patches
, z% j& A& x) x; w$ W4 J( h  create-turtles 100
/ T* d6 g( }: X) K. l  do-plots
6 K4 ~& S  b% A( r& J5 l  ask turtles [ setxy random-xcor random-ycor ]: F) E" z% Q7 ^* R3 X
end9 r6 e/ d" a  `+ T& K7 ?. c
to go
: }, }" d6 \% p, ]6 `7 K6 N  move-turtles1 }# ^( N+ U4 C9 _7 s: i$ S
  eat-grass. [1 i' r8 F$ y( l
  reproduce' s& _! s) E- {& J' U
  check-death7 M! t* r. s/ h
  regrow-grass
1 A# N' u3 c3 r3 w. _& n  do-plots4 f" x/ V4 ^: Y
end
3 q; X! E! G, I. n! _5 _3 B, p: tto move-turtles
3 l8 H2 y/ Q" ]6 Z& P9 R# f  ask turtles [
/ y6 u% G6 h1 U6 L    right random 3607 V; i# j% j8 _' v
    forward 11 m3 {, l5 V8 H2 X3 g3 g
    set energy energy - 1  X, ]7 X' H6 k  L" N- k
    ]
& I) l9 V8 J( M1 }8 `5 {end
) o. F  ~) D- C6 m  `5 tto setup-patches8 u+ T2 B7 B" y7 Z: o0 j
  ask patches [ set pcolor green ]
/ d, U+ d. _! ?5 ^" j+ C) gend
3 Z  P8 O: q$ ?8 @& }* `to setup-turtles
  {( x* I9 Z3 Y  b  G; s  create-turtles 100; J+ j+ E9 ^+ x! O& C0 @
  ask turtles [ setxy random-xcor random-ycor ]
& v; l' o6 T6 }( gend
+ {! o/ q) M. T( B5 m' O+ j" Jto eat-grass: s0 V6 m4 z7 u: _8 x
  ask turtles [
# M3 A& o6 G- d    if pcolor = green [
( t9 \$ @6 S% o. ], J+ G0 A      set pcolor black
* w  v. K" G& |/ b5 T0 U      set energy (energy + 10)
% e* u$ r3 j  {# P9 m6 n      ]
/ f; J/ g3 q9 F3 C  |3 [- k    ifelse show-energy?
" R, V2 j% z) e  H; U      [ set label energy ]5 D: \5 y8 O5 n8 k
      [ set label "" ]  M0 I0 `6 J: H; z1 Q( G
    ]
' T  e# f& d* F- E* e  w: o! F: Qend2 O# Q/ @; o3 a+ F
to reproduce
" X& P5 j5 H% A7 k/ J7 W  ask turtles [
- k( |% i3 [# C# D' }    if energy > 50 [, |9 ~" ^1 }% X/ H3 {: N
      set energy energy - 502 h% h. u1 _7 _5 s5 w# p
      hatch 1 [ set energy 50 ]' m3 h& `! e$ {7 j/ `. r, R
      ]; J# L* m" i- }
    ]
0 F$ K4 H4 g* t9 i+ }: F& v7 Y7 Kend2 f7 i+ K  [5 E# q3 K
to check-death3 ]' j; v; g9 b8 }
  ask turtles [
, f9 X  _/ d) ~. v6 Y5 ?% Q    if energy <= 0 [ die ]6 y, z4 d- i# S; F+ X
    ]0 N  B1 W: Z3 R3 i/ |9 ?
end
8 C% [6 x1 r4 C" t& Q# q  Vto regrow-grass5 h; Z0 j8 H2 A! J! y
  ask patches [
$ k' V* ?0 n' d8 S' ]    if random 100 < 3 [ set pcolor green ]
/ A; s0 P; G. ^2 q% X8 j    ]
% }, a0 G1 x/ Vend$ w8 Z* d# E4 {+ ], ~
to do-plots. p" y5 H: P' E  Q8 t. n5 ~1 S
  set-current-plot "Totals"
" q' x4 H  E+ n  S) r$ I  set-current-plot-pen "turtles"; n& z/ J( c" m/ E. k; {
  plot count turtles; F6 X; _+ {9 _* r( L- L2 m  q
  set-current-plot-pen "grass"6 k7 v% q8 I; K6 }8 Y" c$ P
  plot count patches with [pcolor = green]
9 L* M/ p) t' U( \5 Tend) J1 `1 Z* d5 @* E% \. {2 G0 b8 f
可是运行时提示no such plot: "Totals"
% n. E) j: F# C1 v5 |# yerror while observer running SET-CURRENT-PLOT
+ k( c; b) n& d0 J- y  called by procedure DO-PLOTS
! b' J/ a) w1 _' W  called by procedure SETUP
$ A  g/ ^6 x. J. R  called by 按钮 'setup'
8 i# H- c+ A4 ^; O' \0 H% p5 I5 c8 t求大神解答啊
发表于 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 7 F0 e& F2 A' G4 N
建一个叫做叫做Totals的绘图框就行了
* N; r! R* J6 n5 ?* g, [
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-10-28 23:33 , Processed in 0.017128 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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