设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11460|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy], I( O; t) q9 F$ H- Y
to setup; d& L. g- {9 Z7 H( I% c8 j
  clear-all
, r/ Q* l+ G) C+ ^5 s. }( G& `$ V) i  setup-patches: I0 F& E: L# E  \
  create-turtles 100
5 n6 k' V7 Y2 q. n2 ~  do-plots
7 b0 K) F2 s6 O  ask turtles [ setxy random-xcor random-ycor ]/ E4 i! ], A6 y  X7 }0 N; `3 E
end
  v& Z3 w" E2 z4 Kto go. X" a  n' H' C6 r6 _! Y
  move-turtles
3 ~8 ~$ W# w' Y6 a- t0 B7 T2 p) \, `  eat-grass
) t' b2 M. h9 K8 `9 D  reproduce
9 J' A- Y4 i; N" _1 I2 G  check-death  ?/ b6 V- }$ z
  regrow-grass
* b+ E/ B) t1 ^  ~3 a  do-plots
5 r2 }# L7 X% V' e: ]! s0 v0 hend
3 r3 B! Q) n$ T: i/ Y* ?7 B5 d% kto move-turtles. {: S2 Z2 v, j6 _; H3 A$ u) v
  ask turtles [, j8 T) i/ K2 e# s& \% S
    right random 360
% `# v% o9 c: \- y, Z2 w. A0 k    forward 1
& d& f8 d7 U' Y, K+ d6 i; ], X    set energy energy - 1
& ]9 M/ \% m. u% ~    ]
+ f* r9 K3 G# O* dend) B. w/ u: Z9 f8 w& \' [5 l
to setup-patches. R6 x5 X" Q6 s( g* H* }8 u8 u
  ask patches [ set pcolor green ]* {# v( c2 u9 o4 Q
end
. X+ }! i; x- R3 X5 Oto setup-turtles
# U% j& o; f3 l2 l  create-turtles 100( M& Y9 R) z, T9 v9 Y
  ask turtles [ setxy random-xcor random-ycor ]3 r& x, W- ?0 B. Q8 j
end
4 p& O8 ?/ L0 @# }) X- eto eat-grass: f" W0 R: N' R8 A; ~4 B
  ask turtles [& ~6 f* Q, Z, ~
    if pcolor = green [
5 B( L* ?; i) {0 a! @+ o3 W      set pcolor black
% k1 P, h- h$ e6 g6 c5 j      set energy (energy + 10)
+ |# L' o: m8 X4 r      ]: ]% H; u2 H6 e3 B( G1 i
    ifelse show-energy?
; }  f+ I# Y* k6 L5 n      [ set label energy ]* j* W: n( G) a' W) a
      [ set label "" ]
- \, K) u) n& E    ]
" Y$ C/ W7 C: B  B+ u2 wend
8 A8 |; A4 g; W9 d: N: S7 q4 lto reproduce& o, G. ^2 ]- u2 a2 M
  ask turtles [
6 M8 l- ~! S- n+ ?: b    if energy > 50 [6 F5 {  m1 v7 i5 j  q
      set energy energy - 50
  K# c' t& T, D. [      hatch 1 [ set energy 50 ]
5 d9 s  z8 U0 }5 h      ]
: X7 R2 {: L) O/ C3 n8 a1 O+ J    ]  V( |: Y7 U2 P  `
end/ p3 q/ C! ~" }' N. \" W2 H1 B5 d8 o
to check-death0 C" A* D0 w( A
  ask turtles [: [) k: w  D- a. f# T
    if energy <= 0 [ die ]
$ J# g: R& C1 D    ]
, u# E* R9 f1 l% a. ]* d' yend
1 T0 q- \( F( \6 Vto regrow-grass
4 [& p" X2 W2 l% j3 T$ U' ?( `  ask patches [
% Z8 e5 H0 G0 u9 k. |    if random 100 < 3 [ set pcolor green ]  r, ^8 @+ a& ]" Q
    ]
! x) `) g) i8 Z3 t% X2 Gend9 ~2 f1 ~) A& I( ?7 H) T+ h/ ~
to do-plots& ~  n" R# g$ N% o- N) y
  set-current-plot "Totals"# I% r. \. W- t* V+ q$ I3 y
  set-current-plot-pen "turtles"
0 `/ z3 U8 D- L# ]7 f" W  plot count turtles/ D+ m$ S9 J# n  W
  set-current-plot-pen "grass"
) R* O4 J: I  ]" \+ R1 V& E! d2 d  plot count patches with [pcolor = green]
$ N+ A" l7 c+ D  ~5 ]2 ~end: o) {0 r7 U* C# v
可是运行时提示no such plot: "Totals". _) n& C- w& P5 P1 ]4 h, S0 o4 N
error while observer running SET-CURRENT-PLOT
. b- H$ @2 J2 w8 T4 _  called by procedure DO-PLOTS( s0 U! d5 {3 F
  called by procedure SETUP
% M$ h1 `( L" A  called by 按钮 'setup'
! M& b3 }9 ?, T0 ]7 l7 k, a求大神解答啊
发表于 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   m5 N8 Q5 M* V& H. }. N7 s
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-31 13:11 , Processed in 0.018599 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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