设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10132|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 S0 R) a" T: D/ t% M% Kto setup
+ w- P- E- z0 v- t/ r4 ^  clear-all
  I6 u7 }: J  K# H; t* b" E7 P+ `  setup-patches; {$ P& h; |1 ]- q4 {
  create-turtles 100
9 y5 P3 m! {: m. j  do-plots3 R( N( f  e6 ]% J4 u
  ask turtles [ setxy random-xcor random-ycor ]
4 ~" Y* P9 q% c* G# V4 Hend
8 G5 V4 P+ n- I" ^0 l" R6 tto go
; Z  R5 [7 T! M  move-turtles- ~5 U* c1 B  i- i* F7 Y& |! F
  eat-grass4 p& Q1 {( S- I3 t% C" ~2 s
  reproduce
$ p- t2 L, S6 e5 L, m! P  check-death8 \; d+ f! ?( J% D5 \
  regrow-grass
2 [* t) D& r7 Z; Z+ p  do-plots1 c! r1 \, F  Z9 k" v( ?" D4 {
end
) l5 E1 q& D' h9 x9 j# F" C5 bto move-turtles
( e+ p* `# M7 n! p  ask turtles [
: _0 t% F6 Y; q6 n    right random 360. x: @3 B# X+ Z! b* Q5 r5 d+ P
    forward 1. q+ T7 P3 b- M5 `1 W
    set energy energy - 1
6 n3 B8 G# p8 f6 k+ P) K4 t    ]
: p7 @4 E9 c" J& uend
8 {: n) Q6 h% X" h9 ato setup-patches$ g8 k( Y& L! O& l1 H5 f2 N) B1 T
  ask patches [ set pcolor green ]
! `' z$ i3 r% m2 K0 U8 y/ iend
+ `, e4 T% b& v6 {to setup-turtles- S' }% N' B* ^" L" G: ^8 ~
  create-turtles 1006 O$ i. j* H& U/ _& M
  ask turtles [ setxy random-xcor random-ycor ]
; A( {: N2 |4 ~% Lend# j1 ~2 n+ K: k" g
to eat-grass8 \2 |6 G& S4 O6 M
  ask turtles [
) O* A7 E4 D  O/ Z& m/ T; L    if pcolor = green [2 D: a7 O8 Q. G- L( O
      set pcolor black
7 F: K7 F% I5 e7 U. k      set energy (energy + 10)! H3 h& z6 l3 [5 }! P* N
      ]
& B8 }8 B# ?% S& o    ifelse show-energy?; s- q/ n4 @0 P
      [ set label energy ]- b8 A  o) f9 Y( Z6 e3 \5 Q: q
      [ set label "" ]
9 F7 a( s) @: I8 P    ]
3 G+ {7 k3 \* }7 hend
; f( w2 E7 P# C+ M* Ito reproduce
/ @: m" B! b* z* O  ask turtles [4 E1 o" m! w# M5 i2 A
    if energy > 50 [
' X5 @: e4 v) N- J      set energy energy - 50" p$ Y/ B, x$ c
      hatch 1 [ set energy 50 ]' S/ E. T! l" f
      ]
8 r! z  ]+ t. }; p6 ?/ Y    ]5 ]' Y8 ~$ m: {0 }( v5 b! H7 u
end
+ i  ^( d6 ~: H# |3 \$ _to check-death
; n1 C2 Y% s9 {: |& X! B& o  ask turtles [0 U& v* D1 s) L% a* ~5 p# c
    if energy <= 0 [ die ]( l. w- l0 K4 j& _
    ]- A2 d7 U2 v) t
end/ m" O* O6 R  ^% S8 n- u
to regrow-grass2 p2 C4 N9 I- i1 `- j
  ask patches [
, Z5 `+ \) n2 @* x5 M    if random 100 < 3 [ set pcolor green ]
3 Y, ~4 D( t6 l2 E    ]
8 F/ c$ x9 C6 H* y+ zend' [1 x, u( d% x: w! _/ W
to do-plots& D. S* w4 Y; H/ ?
  set-current-plot "Totals"
9 T* n3 ?1 a2 d! V  set-current-plot-pen "turtles"& o5 w+ s$ i9 l+ a% t' K% b5 n
  plot count turtles8 w8 B9 t' P5 w: u. W
  set-current-plot-pen "grass"
) c( @5 O+ @4 n! R8 r  plot count patches with [pcolor = green], E. v0 m) \4 F- t1 h4 h
end4 H: z% b4 H3 \
可是运行时提示no such plot: "Totals"; p' f, q4 \8 h0 K- b
error while observer running SET-CURRENT-PLOT
  a6 s$ {* Z' o  called by procedure DO-PLOTS
7 l4 [* i$ ^2 @1 A! B: L  called by procedure SETUP5 E* }6 u' }; y$ _& ]) s
  called by 按钮 'setup'2 Y1 I/ M; a. F- ]
求大神解答啊
发表于 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
! E( F! }4 @! t; S# f0 G" r建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-16 07:56 , Processed in 0.021518 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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