设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11785|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]7 b- y5 ]& R# y4 d! _" K
to setup8 p2 u$ i1 K; ]* w( m+ n8 D* {
  clear-all
1 S8 C. @" D3 u" F) f  setup-patches
4 |% t5 P  J- e) G  create-turtles 100
, ]/ Y4 ?) h1 q  do-plots/ E& V# Q! X. `
  ask turtles [ setxy random-xcor random-ycor ]2 r+ s& g1 Z; a. i  k
end
1 ^; s. r) R3 `to go
/ z. @% |' g, d: W  h# i  move-turtles
: y3 w/ Z$ J& C0 C- z4 ^  eat-grass! O2 y9 ]+ ~9 H" g0 q! @% _
  reproduce, O6 r" d1 j$ [+ A
  check-death
# t8 E, M; k. D" {3 \; V7 {  regrow-grass- {# u: l) @' K# H; }; M+ b6 e
  do-plots) b9 D6 t$ \8 N, F
end
, R/ C6 l+ _7 x+ L% l) cto move-turtles
# F" z8 c5 i! ~5 P7 A( m! F  ask turtles [
6 X2 O, q3 R' C    right random 3607 v0 @) s/ R3 ]  ?4 Z' C; @6 G# L& Z# o
    forward 1" ?1 w6 I# C( S5 e+ i8 h$ q* P
    set energy energy - 18 B% Y8 Y0 h' ~. y2 B
    ]0 M$ t* R2 \* T7 L" M, M) o
end
7 O  U6 o' x8 W2 Z) B! N8 fto setup-patches0 r3 y4 L/ p; P3 J* l
  ask patches [ set pcolor green ]
2 _' s: ^- c" l7 \6 l% mend8 }5 A9 Z9 X: K. ]" t/ [" J
to setup-turtles
( k# @; r* s5 Y& e/ b  create-turtles 1005 @* A: R- M: j, A# i
  ask turtles [ setxy random-xcor random-ycor ]! N" o" k& d+ e* L" I2 l
end
* ^* p5 @+ B0 L/ x$ J# M* R6 qto eat-grass
; T. j1 p  n7 g, l- F/ a7 A  ask turtles [# ?& m/ R7 z  i6 o$ P0 |
    if pcolor = green [0 [+ z+ [! i& N* o2 e5 q
      set pcolor black+ i( z9 F1 e( ?) ^
      set energy (energy + 10)
6 b9 b8 ~/ n4 \* Q' Z      ]
) j. |3 A/ Q& m% ]5 f- y  N    ifelse show-energy?
, x9 U0 ]- t* x+ `      [ set label energy ]
/ i! j& N1 o$ B0 ~( I9 l+ }) S      [ set label "" ]" \1 U1 N6 G: I7 }: n
    ]
( W: R( H' q: S1 `end
# n# n" t3 \0 N( W+ lto reproduce
8 U( R: e9 d/ o0 ?8 v  ask turtles [
& t, _# a4 \, U6 H    if energy > 50 [  y$ K0 f3 t) j, @5 M" L9 W
      set energy energy - 50
5 h, C' L2 Q! ~% ?2 a1 J( S2 j      hatch 1 [ set energy 50 ]0 R) I0 d" x# @) V& j' P7 G( h2 u
      ]) V! ?3 S* |6 ~$ K# M" s  ?
    ]( a( w2 t* ?7 t# F0 h% z( v; x
end; u: C5 ^) e! u& g: r' D1 E
to check-death
) h. D( B$ |" z  ask turtles [
; ~' w! n3 c/ f- m4 \    if energy <= 0 [ die ]
" n0 J2 S. c. w) y8 H1 j" G    ]$ Y8 }0 z7 v( z1 l' ^' `
end
; q7 K+ e: J1 B9 e2 Gto regrow-grass5 D, b' C- W" c8 h
  ask patches [/ g/ u4 V5 h$ Z* B* o( q# J
    if random 100 < 3 [ set pcolor green ]. U$ ]$ \. r3 q, J( ~
    ]9 O* ^% C% N# O
end
, c: ]) M4 g$ F! P' Cto do-plots
9 U$ y' V+ F5 G$ J  set-current-plot "Totals"2 y7 Q& n7 M5 i# S  K9 K# n) _$ G
  set-current-plot-pen "turtles"
' T3 {1 }+ {/ O- N$ I+ L8 l! @  N/ ~! |  plot count turtles
; n$ I. }# P, q' X7 g, c/ e  set-current-plot-pen "grass"6 V: P8 L' S" o9 V1 Y4 i8 D- C
  plot count patches with [pcolor = green]" v( c  @0 g4 U
end
8 z2 ^2 r6 E2 A; W) V3 W2 m$ Y可是运行时提示no such plot: "Totals"; u/ f% [9 J) ]3 H# x8 T
error while observer running SET-CURRENT-PLOT) M- p% E/ L. U
  called by procedure DO-PLOTS) A( T% m5 X$ W6 @* J
  called by procedure SETUP
/ I2 J/ t& ?, ]/ c5 v  called by 按钮 'setup'+ ~/ F5 K+ ~2 w8 u+ S+ |1 Y
求大神解答啊
发表于 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
( F& ?4 N/ c% W3 o5 e; L8 x建一个叫做叫做Totals的绘图框就行了
0 v7 ^. R5 }0 l' n, K: `
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-29 21:04 , Processed in 0.016512 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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