设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10217|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]0 u1 R+ l; s7 Z- V
to setup
& h9 Z" Q( `# N' M% x6 j9 U  clear-all4 g, B  t7 V7 O$ @. ]4 o5 f
  setup-patches2 a& p; g% f2 G& t' C7 U
  create-turtles 100
$ S' F* ?) b7 {  do-plots
7 Y4 G1 i( U1 {, A# [1 B9 i  ask turtles [ setxy random-xcor random-ycor ]
- c# Z/ F. h) j" w% ~end. Z& Z" F; _1 X/ W& u+ J1 J
to go
+ x" H: o* l* O3 U2 A  move-turtles
) Q) @- h* ~' r, W. V; G1 i" {  eat-grass' q% e0 ~0 s( e# p. a/ ^
  reproduce
' e" y8 k' ]/ U0 Z+ h4 d& C  check-death
& h9 z/ F; s, R  regrow-grass
7 y$ M: ~# C! r# g7 ]  do-plots1 R3 C0 G& S" |5 P
end
/ _6 L' j3 X" G) h( V6 ]( I, T5 Yto move-turtles
7 B, m4 G# d, c, s1 R( D7 h  ask turtles [
2 @: h$ C* \+ @- `    right random 360% Y6 @% D/ C$ g; }( j9 C9 t+ b3 F5 z( p4 c
    forward 1- ]% \2 [3 d' `9 b$ J
    set energy energy - 1
( p% f2 P# i* v% t7 V+ G    ]7 d+ H3 l! I8 X8 f+ U  e! \
end
& t9 [2 f' `3 A  M0 Jto setup-patches
; g2 x: T5 ~* j) q9 C" _! Y+ [+ @  ask patches [ set pcolor green ]
" b4 k6 e, s1 r5 r) j' vend; q% j$ [9 ?5 v1 W* ]9 Z
to setup-turtles
( ~$ r$ ]# j* p& s' \/ B0 f  create-turtles 100
; T  M6 n1 P! `+ l$ D, T; }# v  ask turtles [ setxy random-xcor random-ycor ]( A- \) _; d! u+ ^
end6 n& ^7 {  x7 c' n; _2 `
to eat-grass
2 u$ |* A6 V) v5 Q  ask turtles [7 ~  W1 y. a$ ^/ ?6 j4 [- U
    if pcolor = green [
# @# V1 o# X9 p$ p! T6 S! G7 H      set pcolor black3 ^) N9 ^  S8 c# r. Z  G" Z: W
      set energy (energy + 10)
( Z% t* V3 X% S5 q$ x  N8 t( [      ]
9 A6 ~2 w" Z) B( K    ifelse show-energy?8 ]) h$ \% p/ Y! ?  C  @8 _
      [ set label energy ]/ d0 q0 m' ?, U' L0 Z
      [ set label "" ]
) C6 B0 l( W4 M. Q3 X    ]
1 f5 R3 ?8 o& I9 J; b# ?# L# fend. j7 }3 N! J; X" l9 n/ B
to reproduce! M: B2 }( ^& o* V, c* Z
  ask turtles [
3 X- E7 Y/ d9 t    if energy > 50 [4 p% {6 C" U: x, l
      set energy energy - 50
* o5 A0 _6 T. |' F- t* R% P; j      hatch 1 [ set energy 50 ]/ d( z$ V: o7 [0 z! O. _$ ~" ~
      ]
& h! [: J: E; S( @: w  j3 Y    ]& e! L! r4 n- M% s7 L6 Y/ Z5 k  Z$ @
end1 U9 z+ H2 ^% ]7 @. U; B
to check-death
& ~2 n, C( {: O9 \1 G" T, D1 c  ask turtles [
+ p' S7 x. Y7 g7 x0 E/ I  e- {    if energy <= 0 [ die ]
0 b( \  ~) B# N- y( p8 P7 P    ]
1 ]* _$ X" M8 k  l& \3 Mend
4 v! M  z+ K; q. eto regrow-grass8 A" a% T/ \- Z8 o9 J* m/ t# h: i4 L
  ask patches [# p5 P% S  l$ s2 i, n: J- v/ s; R
    if random 100 < 3 [ set pcolor green ]
% D" P" H: ]2 t    ]
7 l: ?3 ~. j8 \1 b0 y3 yend
% q" ~1 D: T2 D" T% P- Tto do-plots
) ~+ ?( O& ~6 f, I- b5 u( G  set-current-plot "Totals"
* x0 d0 z" c# B3 f  set-current-plot-pen "turtles"
; m( |( w) M6 b) G. i' _: q6 l  plot count turtles
1 L8 L9 K; q9 h, A; Q" g( A  set-current-plot-pen "grass"% s7 n2 j2 s: W4 w+ i+ O4 O
  plot count patches with [pcolor = green]
# c& f4 ]* ^" r2 t' [* ^- I5 ~end
2 c0 J- W1 y7 f+ \可是运行时提示no such plot: "Totals"7 ?( f' P+ z0 s# N
error while observer running SET-CURRENT-PLOT' s( n2 G( r9 }1 C, w% {( N
  called by procedure DO-PLOTS2 Y" k; B3 h7 D. ^% R. G& C& h) ]
  called by procedure SETUP3 G; l( Q$ x, i8 E8 F
  called by 按钮 'setup'
9 F5 t# B/ n% X& A/ g求大神解答啊
发表于 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
! ?. U* O  J9 b- n+ l* n建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-24 19:53 , Processed in 0.018386 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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