设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11390|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]  c3 a  s9 s4 l( R" b
to setup& D4 |; m4 o) B- \
  clear-all
" U6 Q6 n  k- U9 e- u/ n$ S1 X0 G0 B  setup-patches7 u" S3 l$ a* q+ a# y+ @* q
  create-turtles 100$ r; a/ d, ~) K0 H, ^' P
  do-plots4 v7 m7 |4 H" t8 ]5 V8 w
  ask turtles [ setxy random-xcor random-ycor ]7 Z( j; h7 _  J# @& E; s
end
  y+ A0 ?5 ?( _to go: U$ E* y& r8 Z3 k8 k$ ^6 [
  move-turtles. m2 t1 g) O& l6 N: M  \' K
  eat-grass
+ j( n- [' c3 [' u  reproduce
" }  h5 F  ^0 U9 a2 L  check-death
7 g: ]4 ?5 L. T0 V2 r( ^  regrow-grass
: K* o6 Y1 q  O4 z) l  do-plots
- S* u/ G4 ?( }/ l( A  \end
3 C7 @% D/ u3 b8 l5 A' zto move-turtles$ b+ q, I+ {! ~$ H3 N
  ask turtles [
5 }3 J+ ?: A9 s  S    right random 3603 J1 R' S4 u6 a* @) q* n
    forward 19 A0 I7 R: m0 k1 z4 y( S
    set energy energy - 1# G+ D: ^% u+ _) O
    ]0 g! ~: g0 C5 @4 r
end. {4 b" ?8 }4 S3 u
to setup-patches) q( T/ b$ h. d
  ask patches [ set pcolor green ]5 a9 E$ ]+ F9 Y6 X: C# w
end
" \3 ~6 y4 W* p. z" xto setup-turtles1 F, b8 h7 l- G9 Z) R) E, _
  create-turtles 100
$ r) B" D8 N3 D  M5 g  ask turtles [ setxy random-xcor random-ycor ]( u- }  B' Q, K
end
/ L4 _. M* z$ g; a$ Yto eat-grass
. Q4 u5 h( v8 [  ask turtles [3 M* X; C* S0 ~& f% E
    if pcolor = green [, w0 F" Q- O- J7 m, n% q7 l0 A/ Y0 [
      set pcolor black4 G" r& f% ]0 D  s4 U" L) W
      set energy (energy + 10)! s9 S+ z& x0 I% Y8 f' R& D( z1 C
      ]$ `8 J+ V" a& }' K  ?
    ifelse show-energy?+ _% N; e8 X) S" X
      [ set label energy ]3 a. `/ ?$ W" C0 [
      [ set label "" ]& H& w7 ~2 R/ K: a( ^, l' H
    ]
* Z7 r4 A4 ~3 g. Xend
& O, W0 m9 a, Jto reproduce
1 X& W/ Y- I& R4 E; d& d, v  ask turtles [
% V' H+ }3 Y9 I  w  t    if energy > 50 [
8 u7 x# S# A7 i7 o8 F2 x9 w5 B      set energy energy - 50: X" v* M0 o. V  H4 z2 O
      hatch 1 [ set energy 50 ]
+ U5 b$ a. v1 R/ o2 O2 i      ]
6 H) `) \5 |4 m    ]
0 D1 |5 @4 r0 Eend# m1 I0 R5 p" q1 _! A- K
to check-death
* @2 X- A( u* R5 l" {  D+ P: m  ask turtles [3 k# r2 Q+ W! @* N# {
    if energy <= 0 [ die ]6 B2 \, n# d8 J1 T; {& ]  Z& c$ Y
    ]- j8 v1 ]- ?9 @5 ?  t! a
end
7 _  ~% v/ E+ Yto regrow-grass- [; P0 a3 s. E9 q0 I
  ask patches [
! F+ w% Z# h' o% n    if random 100 < 3 [ set pcolor green ]9 W5 E# R# v0 K8 U$ j
    ]
; v) ^8 t/ r0 K# v. f# S, S7 bend
" s# r, x9 h; Hto do-plots
7 n, Y" F3 m( e$ t9 L  set-current-plot "Totals"
) A) w' @9 a; Y, B# R4 X  set-current-plot-pen "turtles"5 p6 P- z5 B+ y0 X. @' L
  plot count turtles' E; A& \0 U, u! }
  set-current-plot-pen "grass"$ }7 }7 e8 w) u! Y' ], a
  plot count patches with [pcolor = green]
7 m; m/ P( F8 S* lend: j1 t  F  a. n' h- @# [
可是运行时提示no such plot: "Totals"
6 |. X2 V" n9 K  |6 a0 zerror while observer running SET-CURRENT-PLOT
6 b+ u, S7 D" a- a8 {* \! `  called by procedure DO-PLOTS$ I8 k, A2 a2 c: c" o' [4 N/ z
  called by procedure SETUP3 n5 e1 t7 W7 G9 a% j9 d
  called by 按钮 'setup'
" v* J- x3 F4 O8 x- S# e% ]+ 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 * K0 G" }0 A: V5 E% R$ h+ J2 p2 x
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-24 11:57 , Processed in 0.021538 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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