设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9792|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( g8 Z' p5 q% j* f, b$ z2 m" zto setup/ H' k+ U6 |% L& r0 R" z
  clear-all
2 r/ d6 h% G6 u' f  setup-patches
' j, O' H& l2 M0 |5 n8 P  create-turtles 100
/ N' U# b. Z0 i7 i7 W( j9 F  do-plots
' g( b0 G# |7 m; h2 J7 {  ask turtles [ setxy random-xcor random-ycor ]
7 b# K7 Y/ j! w# ?& r( d5 d2 [; _end
! g/ G' N9 S/ Zto go
3 G% ^2 R7 I5 b3 I  C  move-turtles% \  X  x& {- ]5 i8 W+ d& r
  eat-grass( k, E" q' j6 d, _% w. L. e
  reproduce" U! o& |. c. h  k$ X* [/ n
  check-death2 _) _' `7 q& F  F" E
  regrow-grass- g4 S6 K$ L! @( q, |9 K4 V
  do-plots* C! O& ?: N& y& _
end
" X2 G, b! p8 X; ]  \to move-turtles
) [* d( L: O  S! u0 w  ask turtles [% L; o3 X- {# R. C& \
    right random 360  ]' E. m$ H  V2 w5 U
    forward 1
7 N: D1 `$ n/ [8 K+ F" S    set energy energy - 10 n) `/ I/ m. r) K) d6 ?3 v
    ]
) I+ @7 k1 a; e) _! y! Rend
- u- E0 V9 Q4 k4 T7 Sto setup-patches2 \% ^0 `* _: |$ h! J$ e# ?
  ask patches [ set pcolor green ]3 b$ O$ F" r( w
end
5 R+ w+ `6 H/ Q2 }# {( ~to setup-turtles
' B2 |/ }5 o, T  create-turtles 100
7 B) N# s+ Q: Q9 h$ C% F7 ]  ask turtles [ setxy random-xcor random-ycor ]
0 w6 x/ X0 b5 ?, Q6 N9 R- ~9 p9 Kend
5 w3 @$ b  i1 T! Qto eat-grass
0 C* x/ w3 I' J9 j& e0 _4 ^% f  ask turtles [
, R. I* m8 \& r3 M- k    if pcolor = green [
$ }- _6 S% E4 H$ ^3 Y      set pcolor black% E; N7 W' K/ d9 @1 E& m+ u. g
      set energy (energy + 10)
4 r& \0 K# B6 T* X$ I      ]
. ~2 h$ `/ A$ u$ Y9 B    ifelse show-energy?
6 o' m' R% c4 |5 ]1 w- S      [ set label energy ]7 k) V0 I; G8 D$ V
      [ set label "" ]
$ ~* U0 |! [- r  h0 ?    ]
" W8 R7 e& B# f. A( Pend+ f! }* K3 s* h9 T- @3 o  r
to reproduce  }  o1 J0 J1 I- P' C- O
  ask turtles [% m) {8 i8 s' s# Y- k  W0 R
    if energy > 50 [! I  E9 L. \$ {" ]5 J- y' ]
      set energy energy - 50  |  l/ d: R' |3 W$ E
      hatch 1 [ set energy 50 ]
$ S, p. A% _% {      ]
9 {6 ]6 _/ Y6 u; s* p; ^3 Z    ]
9 p; \( C1 ?9 j9 O% J! f% send/ ~3 F- m/ z' m# Y1 U4 ~
to check-death
$ Q+ W& c7 {5 e6 F3 ^( B& Z  ask turtles [
( g5 X  o+ y, j3 P3 ~0 K- O- p0 P    if energy <= 0 [ die ]
, r- B) w, x" J( j; e8 l    ]" ^3 X6 q/ j+ h3 M
end
' _! u: a2 |2 s  J, M; `6 pto regrow-grass1 O" l$ |% w& x# N5 H
  ask patches [; _6 |' ]7 c) F
    if random 100 < 3 [ set pcolor green ]5 B2 @/ ~! i5 X1 O- E4 {6 C
    ]
8 k& V/ E7 K- l) d) L$ Y3 aend
' q8 J* W; [+ l1 K8 p# r* @to do-plots, h. x! C7 t& w; H- _* Y% N
  set-current-plot "Totals": f, g0 \( M# U0 b6 `
  set-current-plot-pen "turtles"
% }1 L% p2 M6 m4 e( R; h  plot count turtles
; M" ~# S/ j+ X- v  set-current-plot-pen "grass"6 I. g* D/ n6 j2 E- U9 W, O* I
  plot count patches with [pcolor = green]: E9 m& P: W0 `: N) S8 e4 F
end* ?; T- _* D/ b
可是运行时提示no such plot: "Totals"
+ `& D4 f5 S- ?+ F# l0 qerror while observer running SET-CURRENT-PLOT
3 ~' l. D  u% i7 n7 Q. s& j1 j  called by procedure DO-PLOTS$ p6 q9 F1 z5 h: d. C! Y
  called by procedure SETUP
; ~: ]# J  x- ^: A6 @6 O( m  called by 按钮 'setup'
& s2 ?" l5 s: L7 k; m# p) B# v% u3 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
! Q% Q- |/ J$ _  z+ O6 i1 y建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-22 04:38 , Processed in 0.024613 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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