设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12009|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: |/ G/ V" K9 Ato setup
( P# M+ B* d6 g3 ]  clear-all
" J: o. r2 `$ x$ ~% B1 S. ~, c  setup-patches
' F' N/ p8 |4 N, `  create-turtles 100
) W/ K4 A8 }0 Q! }  do-plots; e0 b0 L* Q, v8 i
  ask turtles [ setxy random-xcor random-ycor ]
' x0 j) J3 U/ P( e) nend5 k) B4 \3 o" u; C# [7 J, [
to go
! T8 [1 U1 C, O" j  move-turtles
; a* `( R6 Z' ^9 b2 J  eat-grass- r' U$ i' u- Z6 Z: y
  reproduce3 r0 a7 O* T% s9 _& R& {
  check-death
  B2 R9 g! y) R: _' \  regrow-grass' s" b" a  ]0 {8 x1 |: h$ C
  do-plots: F6 x4 n9 ~# s
end
3 a& o% A3 z7 Q6 u8 Eto move-turtles
0 M  }" e, f# ]9 e; f  ask turtles [
2 I0 b  ]. r' t3 i; E2 d    right random 360
6 d4 `( Y. z5 c    forward 1
/ w  w0 |' F- {; S# L    set energy energy - 1# e1 s: L5 o7 I* Q% @
    ]
6 I8 U/ G& F( Z3 Aend; T# N5 m% ~' U/ [* k- g
to setup-patches
; E& p0 ~: z) M8 T  ask patches [ set pcolor green ]7 Y; Q  i% t3 _; ~# U
end
8 U$ M; O9 G8 ^/ I% p9 ]3 a& \to setup-turtles
  ~  [* p0 F8 ?% M: u  create-turtles 100
5 B; ~, G( m. e' h9 a  ask turtles [ setxy random-xcor random-ycor ]% L0 m" `+ f/ a8 G6 x
end% F# E, E3 }; }# a3 Y8 `
to eat-grass) W9 ~+ g( u0 l% a
  ask turtles [4 g3 j7 Q3 ~* u/ w2 _  E: x
    if pcolor = green [0 v, m/ ~8 V! e, E
      set pcolor black; z5 [5 y1 X/ P: E, d& G! N) P
      set energy (energy + 10): m2 f/ h0 x$ V  g2 @& d, a
      ], [: ]" Z, {  F, ~0 z
    ifelse show-energy?
0 U/ {4 x, O0 i      [ set label energy ]) M( k2 v* p5 [2 ]' |. d6 _- H
      [ set label "" ]( o6 j  k8 T9 R7 j2 K+ o8 h
    ]
+ I" A8 `- f3 M7 k8 b: lend
! R. {! q% C( Y: b. D) u9 C! D% a" Cto reproduce
4 Q6 A6 q( U# H/ k, U8 f& F  ask turtles [( M; l( w3 S9 P- ~
    if energy > 50 [; M- I" X3 x4 O; c. r2 T: P
      set energy energy - 500 c5 F6 y$ C1 P. U5 ], L
      hatch 1 [ set energy 50 ]
( {8 L( W7 e. e- y& @      ]
+ G" H8 p! _6 x    ]
( ?- _2 c! R, `4 J6 D% ~end8 L& D4 E9 X- d9 r8 x' |
to check-death
' P2 S" [/ ^) n9 r, p& d! K  ask turtles [( _3 I4 h0 f5 E2 U% ?
    if energy <= 0 [ die ]
7 O1 N' s$ n8 v" u' H# K    ]
7 e$ J4 N% D3 e8 @end
* B& K  _4 t5 ~' Uto regrow-grass4 s3 l' L: k7 w6 N  b' o
  ask patches [
5 n/ ^- ]3 B" t9 K5 w    if random 100 < 3 [ set pcolor green ]8 K) W$ g8 g  e! u3 y7 k
    ]
1 }4 U& k* m* h$ j$ @. f9 fend
& P2 U0 b* D* f  Cto do-plots8 R! m  u2 K' w6 Q4 j& @; f5 t) E
  set-current-plot "Totals"* }. K# o  e+ {3 s2 F4 t! K1 J
  set-current-plot-pen "turtles"1 Y7 H9 T6 z  s! r' o1 R3 x
  plot count turtles
% z! J' C# u  m  set-current-plot-pen "grass"$ G" ^, W9 @9 Z( H3 J& K: a
  plot count patches with [pcolor = green]
: G1 Y/ c- ^5 n. y' r* P- Dend: S  ~- ?0 W3 c
可是运行时提示no such plot: "Totals"/ g' I# M8 n% r
error while observer running SET-CURRENT-PLOT
$ E- a+ a- u( U, ^9 R  called by procedure DO-PLOTS
  b' ^4 W3 N3 y7 K0 W  called by procedure SETUP
1 B8 Z2 m9 E: I  called by 按钮 'setup'8 J& P/ T. S; T. P3 O, C/ p
求大神解答啊
发表于 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
8 l6 ?  Z. |% R7 ^, @) J建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-20 05:21 , Processed in 0.016358 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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