设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10453|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ M1 x4 F/ p- K$ X
to setup5 I: I$ o% L* N( N+ }# `
  clear-all
" `) p" _$ p$ r7 G8 B, u  setup-patches
1 C' f5 A7 ~6 Z: \( j: G  ~  create-turtles 100
+ O2 i& b$ w0 U& J  do-plots/ T7 [, i$ A1 Y9 g) j
  ask turtles [ setxy random-xcor random-ycor ]
. g; f$ n( U: H) Oend8 x; R: P) e! ~6 M5 S
to go0 x* U$ E0 i7 z5 N7 |% Q1 @
  move-turtles* A( Q) @7 E3 S/ J
  eat-grass6 ~4 h0 m/ Y& K: n' U; |* R( V
  reproduce
6 M  Y8 R, [) r% F% G" I" T5 i  check-death
4 h4 D% y' w+ u9 j* ~* B8 D  regrow-grass
8 C* r* a% m$ [. J4 t* \2 u  do-plots: F( O9 m( l" e3 n% s7 p
end
, |5 d$ ^6 R3 gto move-turtles* q" H- i$ t. ^1 c  n6 @1 s% i
  ask turtles [
7 i8 O8 o8 j. p    right random 360
% n% q9 o* T# N4 V  t& e( }9 r0 I    forward 1, b" K5 `( T+ X
    set energy energy - 1% A! `& @/ h' S
    ]5 `) ^+ j/ Z) G$ u* C
end
4 Z7 m+ ]/ p& O- a( A- }1 {2 dto setup-patches% [8 o/ H' |  Q; F# F! J
  ask patches [ set pcolor green ]
# l6 n  x: @; s$ \end
  ]" E- x. ?6 U- p& o( hto setup-turtles3 E+ _2 x2 v) D# t; W  t# V
  create-turtles 100
, g7 X" g4 z, D# M/ `  ask turtles [ setxy random-xcor random-ycor ]% o$ u: H& j" y! o
end  r& O0 Y- ?5 I8 f/ j& }3 q
to eat-grass/ ?4 j/ s+ e8 s$ v
  ask turtles [
4 |8 M0 _1 B5 T/ ^! h+ {/ I0 V    if pcolor = green [5 N' u3 `- n) s* z/ O' G! c- R  z
      set pcolor black/ \- ~# i2 ]  d+ A& @/ r4 r# F
      set energy (energy + 10)0 X/ w$ m& D' ]% z+ E6 ~8 r
      ]9 K- y! Y$ f# k7 w
    ifelse show-energy?
" t) w) i  i, k) ?2 N      [ set label energy ]1 [5 f1 A; j3 }$ x$ d# I
      [ set label "" ]
9 P2 R* U) }) w* j# g2 y( X8 y* S    ]
* I: M% Z6 i5 _1 P" ~, i/ oend7 L) k7 T9 F4 @
to reproduce2 o  W/ m$ }# j, P% v  W( ?) w
  ask turtles [& ^  j  O+ C0 b
    if energy > 50 [
8 \" [) t/ c3 x# E- x, P      set energy energy - 508 n# V* u9 l3 N5 A7 e5 O$ G
      hatch 1 [ set energy 50 ]
- M& H) C+ l9 R4 g0 W" T( f6 G. Z: w      ]; E" U* w- o$ W% o2 o! }
    ]
- b, i0 \8 D0 _' |end
3 s6 P( ]/ x* |3 B% lto check-death
8 _# u1 @3 Y* c& d! W  ask turtles [
! {$ u. s0 s$ H4 u5 g* b" W5 ~    if energy <= 0 [ die ]
; K( V0 l& |. V4 b1 ?  u    ]
+ @3 O& E3 E4 S- h# e, v# G- }end
8 c2 B: m; F! m4 qto regrow-grass. e! \9 }& U  N0 E1 \
  ask patches [
( ?8 C& W3 u5 ~* A0 O    if random 100 < 3 [ set pcolor green ]6 o4 _' S' B6 F8 Q4 _% {  i
    ]
* \( H+ I+ E/ u0 W9 M4 w5 gend. o, h; @* D5 W; r
to do-plots
- C; P/ b: S5 _' s( [8 \8 `4 G8 T! `  set-current-plot "Totals"7 K7 j( W9 I. D: b  `
  set-current-plot-pen "turtles"9 x3 _5 r  _0 |, N' g; G  n6 E2 [
  plot count turtles
! I8 g/ k' `* g  set-current-plot-pen "grass"
, h' \& I3 \/ r/ w: n2 r  plot count patches with [pcolor = green]( n2 {1 i; L# W8 _; i3 v; c% P
end
7 l; z3 z& x( |9 e! j4 d, X可是运行时提示no such plot: "Totals"
/ X7 R# t  c$ P1 |( Qerror while observer running SET-CURRENT-PLOT
; F5 e& i8 a( z% E: w) D  called by procedure DO-PLOTS( }0 c  c& D8 e* @6 Q: n
  called by procedure SETUP
6 ?/ X1 x% }* n+ a0 y  called by 按钮 'setup'- i0 W* U9 }6 `' _: K" {
求大神解答啊
发表于 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
+ |; S/ b3 X' ?* ?. [, Z) D建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-14 12:30 , Processed in 0.021734 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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