设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11721|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; ^2 ]- ^5 `5 w( i; u# j' f  Dto setup" N; x8 a- O1 g6 T: r
  clear-all
( @6 c4 R  r4 J2 J& V' F  setup-patches
, x: j# P4 W! G5 }/ t4 \  create-turtles 100
3 L: ?- j% E# M7 F: t  |  do-plots* V5 e* A' x/ l! @
  ask turtles [ setxy random-xcor random-ycor ]% L/ U& E$ q. E8 {. K; U, u  Y# H/ F
end, L& m4 Q+ ]" ]) D, g
to go( J  O- Z! e3 I6 M
  move-turtles
# H/ [; W' H- n$ n  eat-grass
# m( h8 L5 W2 m: x  reproduce
0 m. Z2 N8 n7 a, g3 X: X, S  check-death& w7 S; q. O' {( P1 V6 ~
  regrow-grass
: \- D4 d6 K  z" F  do-plots
' ~6 d3 E: h' S1 J. v% Q! ?% Mend+ K4 c3 O$ D% u
to move-turtles
; `% }2 S/ A. G" \1 {0 U! K; ^  ask turtles [
  P; w1 I8 q  X+ L7 p4 y# y& Z! p    right random 360. R% S7 M8 @) G7 t+ G3 h
    forward 1
! l. ?# c& k5 _' \5 H& L% b    set energy energy - 1
1 }5 B  C* |- B2 S3 X0 v/ K    ]( D$ W1 x0 x# V; S; t* I+ C' K  r+ L
end
: ?8 f$ k/ _! O: yto setup-patches' [; P: L8 n; J' `
  ask patches [ set pcolor green ]
7 ^) S5 R9 n% x! R; F& {end
; c1 Q, L/ x4 Fto setup-turtles
4 ~& ?. e; [8 g, i  create-turtles 100
0 X- H$ q' B- N* H" V  ask turtles [ setxy random-xcor random-ycor ]) ^9 i7 z- i9 i5 ^5 ]
end$ {$ ?8 l( J! ~- l5 s, T* K
to eat-grass
8 j* T. F; {9 ]( x9 r7 W& N- H- l. w  ask turtles [
: r3 _! F) }, u    if pcolor = green [9 l0 V- b+ C7 E! d; D( S: x3 U
      set pcolor black' |- L5 o, F+ o2 c
      set energy (energy + 10)
( m# X+ m7 Q: o: x5 T: x. y      ]
/ P5 W' h+ _0 N$ B6 p& Q; j    ifelse show-energy?8 H! E/ f: c- @- u4 h; d
      [ set label energy ]. y. Q% m! }" I1 {, V9 L
      [ set label "" ]
7 h2 D( j" \, W    ]
- f4 C0 o$ j( O5 W/ ]. v* T% E$ Hend
, l& W7 S$ E9 K& M6 g! [to reproduce
3 r, Q: P% ~. {4 [! M" k, d  ask turtles [
4 E2 o1 I6 {1 s9 v3 I! Z& w    if energy > 50 [" d8 v! A: G# y; O' g$ Y8 @1 j
      set energy energy - 507 f. R, _' y' W8 x8 x8 K/ |4 @$ d
      hatch 1 [ set energy 50 ]
( d$ \: h) e8 m  D6 p2 u      ]
2 s) F/ S# ^: X5 r    ]$ J3 v/ m" `0 \, U
end
1 m+ R6 M$ M9 k9 h/ Pto check-death
8 L9 d4 R1 n; u" J9 ]  p  ask turtles [
- K$ D$ L8 y( J3 H) Z% z$ ?    if energy <= 0 [ die ]
; E0 O3 Y& I9 n: F    ]
# L5 p, x) g) k4 N( U( |8 lend9 k; w. s' u+ ?7 _) x; O
to regrow-grass
3 L* n3 e- R9 j; y2 I5 l8 v  ask patches [
) `# k! t. p! n: O; t    if random 100 < 3 [ set pcolor green ]
' q1 n0 {, j( D( [& h8 O4 b! V: T    ]5 E# X, t4 W! k7 a' T: l' Y1 B
end
3 \# r: D! d& g0 ?3 e. [to do-plots2 i" N& z; Q7 Q# D
  set-current-plot "Totals"
- O5 D" z) j8 o: l2 G  set-current-plot-pen "turtles"" ^' K4 M* L$ X7 I- {1 n2 {
  plot count turtles' ?  S1 F$ C3 }  x* S
  set-current-plot-pen "grass"5 {/ d  {1 k6 t6 n' l7 e% }6 G
  plot count patches with [pcolor = green]
7 P" @; s6 I  e7 e& X. k: J: d" ]end
4 ?( S6 n7 o# R, h1 I可是运行时提示no such plot: "Totals"
: L$ v* C/ l* ]" jerror while observer running SET-CURRENT-PLOT4 X' }5 k( c7 ]2 o
  called by procedure DO-PLOTS$ Q$ Q- ^9 E) K( O0 T
  called by procedure SETUP
7 p- A- ]7 \# A  m" h8 P3 i# w3 S( m  called by 按钮 'setup'  ]5 O9 ]( w% c/ M; V& _/ b
求大神解答啊
发表于 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 % p$ i: t0 l/ s; Q0 d& Y2 @( T
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-23 14:42 , Processed in 0.015814 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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