设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12848|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 I7 \  n6 s' O' l3 Z4 t, Ato setup2 {5 V( s% \, v5 C$ k* A
  clear-all
8 Q# m+ [5 H3 m9 ^) F' T  setup-patches
- x6 r9 k: b' `  create-turtles 100
/ L; F& x( b3 v+ Z6 x9 W2 A  do-plots
3 j. [# \' O, [$ O% X2 a3 f  ask turtles [ setxy random-xcor random-ycor ]
# l+ |' _, S' s( |/ lend
  H0 I& [, T/ q1 uto go
- B! [& U5 |' B6 _+ I  move-turtles
& m- Y+ r* @, i  eat-grass
  X; j$ j* {' G, c( P+ g  reproduce
7 T4 S% @8 l! r$ a/ m0 e  check-death, f, D  r; Z- z& ?0 m
  regrow-grass7 R) o* z0 l' a1 n1 r6 P  P5 A
  do-plots
- g. h! i5 o( m; r2 send* I% N/ a: ^) u( l! _$ k
to move-turtles
# @6 u+ `" Q8 h) {( ]9 s7 a7 R  ask turtles [- w2 G! X- |9 z: y* K
    right random 360
& r: r, M+ _# m    forward 1& N, W; d5 U  c' R5 n
    set energy energy - 1! ~, x  Z5 M; i9 ?/ f4 w& s% N' I" h. L
    ]
$ c' k7 i! O6 R. n( l5 A- Cend
; n  R5 x: q0 U% l7 ?to setup-patches
" c; u' O. v2 z4 G5 d  ask patches [ set pcolor green ]4 J3 J5 t1 I& J
end
8 R, u' w2 T! P" H% n6 q* d9 Dto setup-turtles
: D( a4 U; [, K2 t  create-turtles 1002 `) i7 @' n3 k4 W. u
  ask turtles [ setxy random-xcor random-ycor ]
; _& C* Z8 K' x0 L& w* eend% h1 U3 h8 d" G' \! H/ e# R& ^
to eat-grass
2 h; J6 v0 _6 C5 n0 f$ K  O6 J  ask turtles [7 x; J9 i7 g9 v( V0 k- p/ r4 s
    if pcolor = green [0 X0 @! u3 u$ j
      set pcolor black
2 \; N. S+ T$ f3 n5 }      set energy (energy + 10)* T* M: H! x. {2 i0 N# X: ^
      ]
) [% @$ a- H% I8 w. T/ B( d    ifelse show-energy?
9 e# [" j: x, \  Y! ]; G; P      [ set label energy ]) k- U  k$ g4 ^$ ?0 n
      [ set label "" ]2 t9 A4 L& f3 _
    ]
9 o% S* d6 Q1 j% {; qend
* Z' z$ p1 @0 o% N4 R1 ]to reproduce+ `) B/ y. P. B
  ask turtles [
7 u( O- Y% s: _/ I& H5 q0 d8 \- ~: ?    if energy > 50 [
. R' [9 Y7 j8 [4 s# B3 Z      set energy energy - 50
; b4 j" v  N# _2 o      hatch 1 [ set energy 50 ]9 z: f  ~9 s+ v* R8 ]3 n- x% b
      ]# E* K3 T; b# J$ q& K
    ]7 D" y. A) T6 t; |: H& x
end+ r" o( ]2 t% L! q3 d
to check-death4 N, J3 b( ]6 k0 i4 M9 A% {$ o
  ask turtles [9 t1 n  [" L% }7 P& I, Q  d
    if energy <= 0 [ die ]
8 D% \7 q3 s0 F9 }    ]
" x0 E! e1 }' {6 `( t& mend
! ?) e3 R* B' Uto regrow-grass
; o  f$ h9 e/ a* Z. }7 x  ask patches [9 o1 h+ I! c& F; p0 m0 T
    if random 100 < 3 [ set pcolor green ]
- g( H' |7 q) Z+ N  O    ]
* i4 D+ m# i4 bend, o$ h/ h9 ^" j
to do-plots
1 ~+ t+ f; V% o  Z  set-current-plot "Totals"
. p8 r$ U& P/ y9 G& T  set-current-plot-pen "turtles") @7 X9 p; W5 |4 B' ^5 X
  plot count turtles
/ F& e0 y0 c! i- a" t* \1 O  set-current-plot-pen "grass"- h7 M2 ^" ^# U0 F+ G: z9 w
  plot count patches with [pcolor = green]
0 J( }6 e0 r' l2 T, Kend
. F* ?- R2 Y8 n$ S; m) f可是运行时提示no such plot: "Totals"- ], _4 b7 ~. J4 {
error while observer running SET-CURRENT-PLOT$ i, A# T4 w: d/ Q+ F# g* W/ \
  called by procedure DO-PLOTS
/ h: G6 s+ x; v0 o% e  called by procedure SETUP
7 D4 T7 d7 C" X, i  called by 按钮 'setup'
& T5 O+ K0 ^. S! s3 i求大神解答啊
发表于 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 . Y# t! o3 [3 s3 q  |; N3 {
建一个叫做叫做Totals的绘图框就行了
! A7 _* E$ s8 f/ _) O# @* q/ j
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-19 10:21 , Processed in 0.015234 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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