设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11264|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* ]9 i' ^4 C# t2 k) Gto setup* j. |& E& i1 v4 \3 F' _- v1 K
  clear-all8 k1 I" B6 o' o  @
  setup-patches# D" r$ y' b8 O1 V
  create-turtles 1008 c! {$ ?* ?8 Y# t& F" r" u
  do-plots
) M! u0 L1 \7 o6 `8 n; x/ H  ask turtles [ setxy random-xcor random-ycor ]* v" i' V, k# k0 {
end4 c/ n3 E" W# F3 Q
to go# f1 Q1 X+ ^! R/ l7 z' W: N6 a5 X
  move-turtles
' Z) D; j3 q' B/ K1 X8 \! C  eat-grass
5 n& @* {( z* k) f( t( h; j( y  reproduce! Q, z" u8 O' k+ P
  check-death
  S. y* M: c# \9 G. E  regrow-grass$ C- l  V3 s; c6 V) r% `$ O
  do-plots
% B! s  o' u6 T1 B7 P" W! ^end
. Q( @- k9 t4 U' _+ `to move-turtles( J" P4 E" V1 ^0 F. r0 M, l" e
  ask turtles [& F/ j; I& c3 D* w7 x
    right random 360
- t& A/ Y- b4 i    forward 1, d. Q5 U4 O3 R9 Z( V; P
    set energy energy - 1
, N, v! {: S* i7 F' z/ A( u    ]" o' g+ \) Z  P% E) m" z
end1 ]* t; g4 Y( ]' E1 x3 `' o6 D
to setup-patches
# x& }0 V# x0 r" h! K- i, I* n+ S- f3 v  ask patches [ set pcolor green ]1 d& n# e6 I2 `9 R- r+ K$ L
end
5 P( T  r0 ~( [  Q! j! L  l( `to setup-turtles
& q5 i( @1 h$ {/ U# C. V; u" F  create-turtles 1007 u! b* n1 V, P% j& s
  ask turtles [ setxy random-xcor random-ycor ]! ?7 c$ K8 X+ a& ~: [: ^* d
end
. s, I6 b$ z( F; e( W' ]to eat-grass! n* O% U) s" q" M. K
  ask turtles [
, k; c2 [5 r9 A    if pcolor = green [
# p; k9 V0 ]' v+ H      set pcolor black
) x0 p  Q/ Y5 H! e      set energy (energy + 10)3 D+ o& p, v6 P+ A; ^6 G
      ]% F0 t' h0 o8 t
    ifelse show-energy?
3 P5 b# e, p5 }6 [      [ set label energy ]& Y) n; M/ U+ t0 u
      [ set label "" ]
/ K7 g0 i, s" J* j    ]* u3 N1 G9 {5 d9 _) D% t. G) e
end
; x7 i# G3 s6 ?8 s2 |7 ]to reproduce
; ]! i: f' a  C4 Y9 j  ask turtles [
1 z7 K9 r0 {+ u$ w$ q. d$ x: u4 |: ^    if energy > 50 [; G0 E+ L. E, [
      set energy energy - 50
, r' z: T/ Z  Q2 X" V& v      hatch 1 [ set energy 50 ]. P% {/ d" Q; r. L, y
      ]
: u: f4 U' n  y' j) l    ]* u4 Q# \( W/ c* X- O2 W
end6 ~9 A  w1 y8 h% x& j. v
to check-death) [3 f5 d. m8 l
  ask turtles [
# v; w2 }" k: N7 o5 S2 N    if energy <= 0 [ die ]
: b: s% @0 T" v$ L+ I  `) v  s    ]! o4 `7 S- _9 U7 O, z
end2 {  e7 C( u( g- V( |/ ]) B0 d
to regrow-grass' W- v. _4 G& q2 T
  ask patches [5 r* G# \9 m/ C7 P
    if random 100 < 3 [ set pcolor green ]
' W% q* Z6 r) C: n+ T* x    ]) `' N0 n$ z' G; J2 J
end5 v/ J3 ~* V& |+ c& S+ T8 _' X
to do-plots$ q- e! @) A9 {9 p, T' D
  set-current-plot "Totals"2 N" |2 w7 ~, d; N7 M: z0 S6 _8 @  L8 I
  set-current-plot-pen "turtles"" s' ^+ q$ s$ F! |% X' _* Q
  plot count turtles$ C' D$ d/ t) @* {* }6 u% ^
  set-current-plot-pen "grass") R3 M+ t7 E0 H) t
  plot count patches with [pcolor = green]
/ z% G% S  {7 r- S( a) yend
9 @  ^) p+ J1 p$ B' a可是运行时提示no such plot: "Totals"6 C# W& Q4 c' _' a. _: [. X& Q
error while observer running SET-CURRENT-PLOT2 `! j" O* ]" l! _; y" K, y
  called by procedure DO-PLOTS
9 w1 r! W# S' V1 Y& [  called by procedure SETUP  [% m; ?9 J  D2 C/ T
  called by 按钮 'setup'
; g1 i5 O: c$ g4 y9 c' z求大神解答啊
发表于 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 , _( M/ C# k4 k1 o2 d
建一个叫做叫做Totals的绘图框就行了
6 i  H8 D+ e5 [* t
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-13 04:44 , Processed in 0.027284 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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