设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10802|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 l" {2 z: B1 q- G+ o7 E+ _to setup
% A) \! w, r1 ~3 C  clear-all
+ _( a0 v( ?& ]  setup-patches# M& r  H: f; W; V# n( ^/ M* g
  create-turtles 100
* K, }& U: r9 P+ E1 U  do-plots
8 i" G) C' s4 I: Y5 S6 R  ask turtles [ setxy random-xcor random-ycor ]
+ R( k8 c0 T3 Y) j6 G2 [end
, }! g/ G3 b, N. B1 Y' Y6 [+ s9 m$ j1 uto go% D, o$ Y) K, X( r5 K! ]" A
  move-turtles4 @) H2 A: V5 M. ]
  eat-grass( u7 _( T' L; }: y& I8 j1 i
  reproduce
3 b9 q* C& S( a. Q+ c8 U  check-death/ P) A* f! X% f5 g, h
  regrow-grass. {, N' x% q' v: ~# f7 G* R
  do-plots0 z$ A5 X. U9 T( z" c, R/ ^6 m
end
7 O, C% k# g# ato move-turtles& ^' M* c" W* T+ d5 u
  ask turtles [# K# _* D& B, i
    right random 360
* Q: L: C! \$ [    forward 1
" n, H+ M0 p2 A' h( H( Z, R$ H    set energy energy - 14 t3 p2 M% Z! L: o. _' }0 k
    ]- B% j  g3 j* Y1 F' t5 L. N. o
end, `2 O) g" I* j; B3 Z
to setup-patches, D3 |% u  v( |7 o) ~
  ask patches [ set pcolor green ]( [9 r$ m, T, ^9 u0 [* Y0 q( X. x
end- a/ {6 e' {5 `( I' I7 q
to setup-turtles
* p$ o& p$ `" a3 Y  create-turtles 1007 F9 ]2 u9 S! a2 {8 Q% E
  ask turtles [ setxy random-xcor random-ycor ]
; z* m6 W& z2 U7 eend& y! ?/ K  |+ n8 C+ w- G4 e2 f$ a
to eat-grass6 _$ E0 f1 N- B* H6 e' g: W
  ask turtles [& n1 [. ?5 e  l6 _/ u  r3 m
    if pcolor = green [7 g# V* U+ X/ |& B
      set pcolor black; ^% Z+ J2 _) r2 a8 S: j- z
      set energy (energy + 10)4 u; z; `+ d' B% _' H
      ]
. l" N4 [' D5 V) Z' W0 s    ifelse show-energy?
, }6 ^2 a) w: r/ \3 A      [ set label energy ]
! o( u" H1 `$ G$ ~: J      [ set label "" ]0 B- `5 X: h: r& c$ p' j
    ]
' ^& Z. f; Q4 j' Vend5 N/ a- F# {5 w  _
to reproduce  A4 X* {- Z/ g8 \/ ~- U8 X! T
  ask turtles [( A( J/ n2 Y6 Z! P1 X
    if energy > 50 [
7 R! J6 h/ Q$ z& _# g! c      set energy energy - 50/ W( F7 n( }! \1 S+ H* U- ?6 {; I6 x
      hatch 1 [ set energy 50 ]1 }4 Z/ P. i& D
      ]
( y6 ]9 H  L, r1 {; _1 y- ^# l    ]
0 }' ~9 p$ X3 K! Gend6 n1 Y& e; o6 F9 C2 J
to check-death
4 g7 Q2 F' X! S( o' d  ask turtles [$ P6 g2 j! D4 b
    if energy <= 0 [ die ]$ t" A  s$ |7 P8 O! G. L- v
    ]/ r% \  U( o- \/ f: R: `
end  \% S4 q! ?9 `+ J7 ~/ m9 j* e
to regrow-grass
. M: h* R! i3 h9 j/ G  ask patches [6 I! C1 Q8 q3 M* w
    if random 100 < 3 [ set pcolor green ]# ^/ a) U) g3 K) ^
    ]  I/ E2 o9 r5 j/ {
end! [, @' t: b  \  {
to do-plots
2 R, {  J% V% F4 E0 U# k  set-current-plot "Totals"
6 T  i8 e- ^3 m" v  set-current-plot-pen "turtles"' J" ~4 y* [3 O0 n9 X+ v4 U
  plot count turtles
( f7 P: m  @: r2 ^5 i# y6 v- j5 R9 w  set-current-plot-pen "grass"
8 ]) _5 f3 D2 L. z$ j/ W  plot count patches with [pcolor = green]$ j  a$ q/ O, W1 F* N/ j/ M
end% ~' `, [/ H( N7 a* F
可是运行时提示no such plot: "Totals"
: b0 G- V4 w' N" F$ lerror while observer running SET-CURRENT-PLOT
5 X, Z: J& m6 X2 Q& k/ e& o  called by procedure DO-PLOTS2 T( B0 F2 E! _6 F
  called by procedure SETUP
# P  `! D) ]# ?& g6 }0 [  m  called by 按钮 'setup', M1 |; c9 b; f7 P% ^
求大神解答啊
发表于 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 2 |# J; k/ X& x. |9 j# U
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-12 22:27 , Processed in 0.020210 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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