设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11131|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ a0 a: V% |4 F! I- l
to setup; L0 l) f5 X. e; `$ \, H* t
  clear-all2 ?6 {0 v/ w" E; Y
  setup-patches# g3 K, b* O; k/ T3 _# }9 `# a( m% ?
  create-turtles 100( k, t/ ~$ y% a. g& W
  do-plots
+ X2 N$ _1 K- w8 }: a' h& j: `. o  ask turtles [ setxy random-xcor random-ycor ]
  `$ r- M% N/ ]; Xend
; i1 V0 ]5 ^) Q* y% s  Uto go
5 b+ T* J6 h; I: a  move-turtles. T. x4 `  f0 r6 K: T! l% ~! L
  eat-grass7 n& Y0 \( P$ @$ W2 c! N7 p
  reproduce
# V1 \1 o+ O: D! E, X" l  check-death
; i+ D* m! @( i) ^& b+ _  regrow-grass
9 o. @+ N+ _8 o) _- Z# Q  do-plots
1 S9 r+ z! h, {* {/ _9 ?6 ]end
$ k# S8 b2 m4 ?# Q- _, Z$ w& Ato move-turtles3 g4 t) H: P- C% K/ r
  ask turtles [
+ [* j& p& t) S/ D! ]- M    right random 360; \1 C( P  q7 I
    forward 11 O% B2 `8 v! h; \' y
    set energy energy - 1* o( T, G* f: u, w# @. {
    ]# i, v( |8 w# Y8 S) j
end3 ~: t1 b0 n' O5 o
to setup-patches# U1 V. g. m! n8 }  B( G/ d
  ask patches [ set pcolor green ]
' @' @+ i% M; `end! D, n+ U( M! [% Z; \
to setup-turtles
) z" S  E% V; c& ^$ p- K& r  create-turtles 100
+ L5 b6 V/ [" }$ S- b7 l  ask turtles [ setxy random-xcor random-ycor ]
$ d; C$ V, V. v, `end4 D: u5 |8 u: R/ q
to eat-grass1 p/ ]# A& u" D+ h
  ask turtles [3 Z) ?8 b2 q! T3 F2 a6 e
    if pcolor = green [% t) @- d* B  u
      set pcolor black! t, a7 N# r- q% J
      set energy (energy + 10)
4 H; D+ d7 ~: N+ _      ]
! D" g! j, `! ^4 ~: N* Q: A# @    ifelse show-energy?
  X2 i- p! x& h, l, r$ m  V. m      [ set label energy ]* J& y/ b* T3 U) q
      [ set label "" ]4 K7 B2 a  i3 r7 U0 `: H
    ]
0 b3 S- k9 |3 i) Eend
8 o& F8 G: J. N7 O# U4 a2 ?+ s2 O- @to reproduce, b8 X5 ?% ^3 U& q
  ask turtles [- C5 B6 e' |5 X# b
    if energy > 50 [4 t9 p3 x1 c$ }) K" G- @- i0 `
      set energy energy - 50
) [0 _0 f4 Q1 A" [: Z- A      hatch 1 [ set energy 50 ]) P1 q, X+ Y1 w9 F& E' C8 z
      ]
# `/ z) Z3 q# G! D' T4 q+ m    ]4 Q, [1 [( @/ O4 d: r
end
; O; s3 I4 C; c! [: v; ?to check-death1 |& y- ]" G4 c* U/ e
  ask turtles [% ?3 T5 ^  m% ]% Q! \" `
    if energy <= 0 [ die ]
) c% X$ w/ C% X4 E* a    ]
4 e# J3 v  Q8 h9 nend, B& h% n" t  y) L$ Q
to regrow-grass
  U. a8 b$ f) K5 d6 w2 r  ask patches [1 v9 m* H( d" q1 ?& k( r
    if random 100 < 3 [ set pcolor green ]
) c. o4 V( J- N    ]6 [/ A, c: \1 P# _
end
8 A. a$ T1 j. Y& M- Sto do-plots
! A2 E6 H  l, B- B6 R  set-current-plot "Totals"
$ F) b6 j& I. E; f  set-current-plot-pen "turtles"
' |9 k- ]7 A' b6 a! h. S  plot count turtles
& A. |" _' W, `  set-current-plot-pen "grass"+ }: n9 v& o2 _! l; N
  plot count patches with [pcolor = green]
. a+ g$ U1 q. i" _- kend( t) j7 ^2 t7 J4 o6 |% N
可是运行时提示no such plot: "Totals"
4 |( ]3 I2 `% f: {* Oerror while observer running SET-CURRENT-PLOT' m# K5 F5 R: Q- _4 k
  called by procedure DO-PLOTS! I; v0 \- u( w  R" C- \* j
  called by procedure SETUP: A; ]4 Y1 C/ ^) {% x5 j
  called by 按钮 'setup'
, T, j9 b) p8 @) 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 6 R; C* c. g4 C) t$ h
建一个叫做叫做Totals的绘图框就行了
! w8 m. M1 V  X% ?" z" Q2 T, |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-2 09:47 , Processed in 0.021994 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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