设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11270|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ w& w5 v6 B  L
to setup
% p: y1 P3 b; f: @: w. _; h  clear-all
8 `- \) k$ i, n  setup-patches
- m. i2 U1 E) n7 t  create-turtles 100  Z. O! ~! n& L
  do-plots
: v& y$ W$ P& q* Y1 ?" K  ask turtles [ setxy random-xcor random-ycor ]
3 [$ _9 g# ^) N$ O4 Q, aend3 o- o+ o& M0 E- p- Y5 R: n! H
to go. a# M" y! y  X- F
  move-turtles$ }8 e% ~- E2 f; {9 X; {
  eat-grass
5 f8 Z1 G. n- W  \+ a1 G  reproduce3 ^- y$ S& S" `$ E8 R. M, Z
  check-death
8 d; C( z, G) u) k7 V1 |2 ?! |( I  regrow-grass1 v- D2 V) n' \" t' l5 P
  do-plots
1 N) z4 v& D, ]/ A! Eend
- R  u2 v, T: J, ?2 cto move-turtles- k7 H: Q2 F' d- [
  ask turtles [% l7 d# M1 s$ a
    right random 360
% k( S9 M- ~5 I% m% [8 L# M* |    forward 1$ o2 b; l) {7 Q* {
    set energy energy - 1: a: W: Y# F; E) M7 q+ I8 _+ B
    ]4 }, Z) t# C- X1 ^: l$ J
end& F( }/ i* g1 F  F
to setup-patches6 z0 C( A/ n3 V1 M
  ask patches [ set pcolor green ]
, l5 G' j9 c' ~2 S" Wend
( N- q4 ~' t/ F+ I; p. }to setup-turtles0 M* A8 o! O! A" A7 M( {, M
  create-turtles 100
+ v& M) b% G4 }) _5 H  ask turtles [ setxy random-xcor random-ycor ], x% s" O/ j9 u
end9 E" A% K- N/ e+ F5 |
to eat-grass
' Z! A: s3 [8 v4 K5 l) s! P1 ^  ask turtles [
7 y& F' H+ `0 d( _% s! R7 Z) [    if pcolor = green [' D# p& `6 ?* X6 E
      set pcolor black$ g4 z3 P9 B( A9 I
      set energy (energy + 10)
, ]* }" x& T: A      ]) g( J) M; ^, {
    ifelse show-energy?8 G% q, m7 Z: p$ F2 R
      [ set label energy ]
2 m7 c* U* a/ @: \      [ set label "" ]# {2 k2 d. n# a
    ]
' _1 u. W: u4 j$ f2 X- qend; R2 h: z" B# T" p8 v; D' j
to reproduce1 O' b5 l' f& c/ r
  ask turtles [) S$ g* A& O- \( V
    if energy > 50 [% A; [, g' b( E6 }. @* Y$ w  |, M
      set energy energy - 50
) M1 t- o  Y7 U8 G0 `      hatch 1 [ set energy 50 ]; D1 C" `6 O% g+ q/ C
      ]
! s& C1 L" D2 V: K4 Z+ |    ]: {) w$ `% R; f/ t3 I
end
8 n$ t0 w  G0 M4 Q/ fto check-death2 x: p" t4 p" W5 w  z0 @
  ask turtles [: M# |5 Q$ G, e$ H* R7 ?0 v
    if energy <= 0 [ die ]# L+ C; @1 }8 i1 N7 Z. r
    ]
3 B" `# F, f4 r2 X, Jend
; V9 l. g- R0 X2 T! ?to regrow-grass
1 A/ P( u2 o" }7 Y  ask patches [
" ]4 L5 u- g( q3 f* J2 A6 K: A    if random 100 < 3 [ set pcolor green ]& P1 q& @( r0 {. V& y
    ]7 h9 y! w; _5 p, q! R
end) _$ e* B/ x8 j3 C( Q' K, H
to do-plots# i0 s+ V0 x! Y# [( J
  set-current-plot "Totals"
: }; Z4 n4 z7 j, B$ F  set-current-plot-pen "turtles"( t8 S# l$ [6 M% J4 s* |
  plot count turtles
2 B2 z& O* t9 H2 u: @  set-current-plot-pen "grass"
6 a3 _" A2 w8 j2 [9 a! W8 m  plot count patches with [pcolor = green]8 y, Q* E7 y+ [1 k  K* O
end
1 I  _7 w: _) W9 {4 z/ \0 p可是运行时提示no such plot: "Totals"
7 Q' A9 e$ z, e4 L( H# q$ W& b9 Cerror while observer running SET-CURRENT-PLOT9 z8 B1 r. @7 O6 C* I4 |( |
  called by procedure DO-PLOTS
# U& e% g" b$ ]9 n8 T  called by procedure SETUP
  e) B. ^1 l# q! z  called by 按钮 'setup'/ n% i6 _) z0 i) R. F0 Q
求大神解答啊
发表于 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 6 E( y+ ^( [% Q+ Z$ H8 q
建一个叫做叫做Totals的绘图框就行了
4 Z1 _! {+ P1 D5 i; _0 l! v
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-13 21:09 , Processed in 0.020997 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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