设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12152|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 D, r2 Y1 `- F1 v# k1 M. bto setup/ U% s+ \1 E; j1 c  Y1 z" G5 e
  clear-all+ j, D  m$ {8 x5 t8 @
  setup-patches
0 f1 i( n8 ]/ W2 f3 o3 @4 l  create-turtles 100
1 u4 _4 Q, z  v4 X% F  do-plots
+ j; q" g0 `+ ~5 d- S4 f; D5 L  ask turtles [ setxy random-xcor random-ycor ]! x5 k0 \* [( Q0 `
end5 b0 Q) D; c& {: k2 b. E" `1 t
to go+ Y& W' d( A4 b" T! F
  move-turtles
; {5 g; y  ], x2 z: s2 B  eat-grass
8 w4 r9 m( X/ F* m5 S  U  reproduce
! e0 m) b: o8 t! p  check-death
' m- s- ]7 @7 v! z$ \: |9 O+ }7 C, E# ]1 J  regrow-grass
* B! `6 |8 \6 K- R. b$ ^' t5 x  do-plots8 |/ f8 [4 ?  o, x2 K
end
( j& v7 H* L/ t6 ^' q- ]/ Gto move-turtles+ P$ J4 E( i  r) P
  ask turtles [( H. O: {( O3 W  E" y
    right random 360
4 p9 _& B2 X1 m$ e  H9 v    forward 1! U/ M% n  N4 S7 _3 q# K! O3 D, d
    set energy energy - 1
5 s) u* P- e) `1 g. l    ]
4 A# l; y2 ~2 ?/ C- fend
( b: W. |& }. U8 M9 jto setup-patches
. d  }6 K' M* a6 @  P' o  ask patches [ set pcolor green ]7 q$ c  M2 A$ D6 \  o
end( L# y6 j  }. O! c+ P/ ]4 p- R
to setup-turtles
/ {; q% {2 z! J! |# r! }% S$ l  create-turtles 100. R2 I% Y+ Z2 B
  ask turtles [ setxy random-xcor random-ycor ]
. b. ^1 s" w$ q6 Fend
# G4 d* q- C9 |+ o, \" M: Jto eat-grass
* j" A0 T) U- R) V/ G) @2 Y& F# l  ask turtles [1 J  i* Y) O6 y! U. O" x5 j
    if pcolor = green [
" U6 I" }( q7 J) W6 m6 h      set pcolor black
$ L! @  u- Q7 a# R, X' A      set energy (energy + 10)
3 C; v1 G, w* Q) n" }$ g1 c. a      ]
# Q- a$ S' |& J  O- w7 j+ c    ifelse show-energy?
& L" N- C# G) A1 N8 r% b      [ set label energy ]
% M1 H. B6 p( l; V* K: Y      [ set label "" ]! v. `* m9 \# ?" _; Y
    ]1 K' t& x5 g+ Q- A
end
5 P, F" b. H; |7 h- Wto reproduce2 }( N, z  j6 e$ a
  ask turtles [  S- ?9 {( F9 b8 E
    if energy > 50 [* n; `2 h2 X& E/ \  r# i6 |, h" {! [
      set energy energy - 50/ H0 g3 b  g6 @& }/ b
      hatch 1 [ set energy 50 ]
% g" `% g5 N0 ]/ _      ]
# i$ P  V3 D3 j8 k3 j+ z    ]$ e1 ?) _- A8 u/ ?" l
end2 Z7 p2 M9 F: X, R/ c, E
to check-death
+ H) D" L3 S3 F$ c) }! n3 r  ask turtles [. [9 Z0 E0 B8 P0 F" u2 w( R
    if energy <= 0 [ die ]
' V4 h4 B( |, g) Y' y+ V    ]6 Y& Y/ |6 G+ ]! _) W4 p
end6 r& K, W# T- b! {: I6 P
to regrow-grass
) S' |6 q7 @! ]* x8 |  ask patches [" v7 Z5 Q' b' p
    if random 100 < 3 [ set pcolor green ]" a" @: R) c" U# c9 A; E
    ]/ t6 F( F/ h, R2 W3 Y/ e2 n9 _/ P
end  P5 i# x& q3 y* l7 Z
to do-plots
; Z* f- _4 h, S$ [# c3 k4 Y% I: S  set-current-plot "Totals". Z8 |" I# R9 ]6 _" N  n
  set-current-plot-pen "turtles"
8 V; X/ w+ ~# X  plot count turtles, A* z; m0 u0 U
  set-current-plot-pen "grass"! P! O) V, J2 O' J
  plot count patches with [pcolor = green]
- B  _7 I' L. M  h, o+ a& Iend1 i" m) H: i( M+ q
可是运行时提示no such plot: "Totals"( f' R* _. \) @7 V+ m
error while observer running SET-CURRENT-PLOT
0 P7 Q0 X" O1 _+ i; o% _' n9 O  called by procedure DO-PLOTS
4 N0 [: r. }* q7 X. x  called by procedure SETUP
# t+ }7 r' U; |8 f0 B, G  called by 按钮 'setup'! A4 Y* m  `8 B! Z- x
求大神解答啊
发表于 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   W" L, k2 G4 D6 B! m2 S' s
建一个叫做叫做Totals的绘图框就行了

! M) d6 M+ D, ^9 ]8 p9 Z' y哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-29 21:59 , Processed in 0.015988 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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