设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9902|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]4 A8 z  l$ a4 C* h5 h4 ?- Q/ g
to setup+ G$ V1 q! D+ h( r, C2 F0 C
  clear-all4 ?# u- p- \& m+ \% ?
  setup-patches. [* [- K; Y: G& O( {! ~
  create-turtles 100
4 O9 s/ D6 y7 w: W6 A- [  do-plots
0 q3 ]$ W, }8 D  W: w' ^' f# t- ]  ask turtles [ setxy random-xcor random-ycor ]
. ~3 x3 J6 h: i$ l. Xend5 u: D- F; c' D  ~) {4 T: [
to go
: B8 s8 v9 [. j- Y! B9 O  move-turtles$ @8 {: S$ ]% V5 L* z$ d
  eat-grass
' [( q2 t! g0 d  reproduce" r) ~( M: t% k  T7 T
  check-death
8 [. M0 H+ k3 ~! `  regrow-grass
! E( K" v+ F1 P* r, [2 i" Y  do-plots8 {% n6 P8 l! Y/ p$ D4 h3 g
end; O9 F# s7 H8 I  K% v& O. v+ T
to move-turtles( Q1 N8 M7 G4 k2 u- @
  ask turtles [7 g! B1 z  u* L; Z4 }# Y
    right random 360( a) U3 r6 Y0 e' z0 D, G+ |4 c
    forward 1# ~$ x3 o, ]4 o
    set energy energy - 1) `$ |$ y/ e9 l# P" {/ y0 `6 g
    ]
1 U: P- _5 B( W4 Q1 y! D8 Iend/ m: ^' K1 ?5 t: f$ n
to setup-patches% T# A7 J& u9 t9 J! ]4 `
  ask patches [ set pcolor green ]& H+ w2 K% i+ W9 @1 [
end0 ^* o  A# p: h# N! z' Q+ h( t
to setup-turtles; O  z+ v. {5 e! j# z) _: y
  create-turtles 100& L! C0 _- n- D; G% {( J
  ask turtles [ setxy random-xcor random-ycor ]
5 B. n+ p4 q, t) T: d: Z; F: p" Tend, u5 {/ G; L* G1 v' k  [" W  R  w& u
to eat-grass7 d8 F4 Z/ v/ s9 Y( f4 r
  ask turtles [/ H: L5 a0 N! d/ }' h/ I5 S
    if pcolor = green [
& h4 C' o/ {0 j      set pcolor black; h/ e( c$ D! P, \4 e* [5 @
      set energy (energy + 10). m4 R1 u! @2 H
      ]
0 }+ V; V2 x0 }; D. D    ifelse show-energy?  o( ^3 ?. }% `4 q7 G
      [ set label energy ]
5 |) E* L' ~* C; p. ^* \      [ set label "" ]
7 V7 t2 [1 b; A- v# J    ]
. ^* _3 N1 k& ~# }& h, Kend9 U5 \, m5 t; c. V) x
to reproduce
! P  V& x4 F- Z  ask turtles [: c( y: }- S, Y
    if energy > 50 [
! f1 |, a9 d* Z& H9 q      set energy energy - 50
9 y* {! B+ r: U5 q+ {7 a! q      hatch 1 [ set energy 50 ], h5 {7 u  A9 n- m9 m/ r
      ]! U3 K7 H* k3 S8 [( b, U1 K$ P
    ]. o+ T2 z5 k" |
end
* u- s1 }+ x3 u: s% yto check-death
: h( w4 A$ c2 R1 }  ask turtles [
1 a+ D; W) J0 U6 F9 m    if energy <= 0 [ die ]' H( _3 ]* V& u6 H1 N
    ]
, |: `7 n8 {* z# F3 |4 ~end  Q4 Y$ ^. a; r
to regrow-grass0 N7 W6 c# N- X
  ask patches [
3 I0 P* ?3 x9 ~$ W% V    if random 100 < 3 [ set pcolor green ]
0 F1 C5 L+ F$ p5 i! p) }    ]
& S. |' R3 e+ X0 ?# y- {end
( Q6 M$ @- X1 D3 ^- uto do-plots
  L2 i/ n5 \2 X3 p4 f. ~( Z- n  set-current-plot "Totals"
# E) z$ R1 X6 _& |  set-current-plot-pen "turtles"6 W- h! O# {5 c+ M& l
  plot count turtles
" E9 W/ T) @3 x. N) e0 c) C7 f0 ]  set-current-plot-pen "grass"; |- r& \9 I" `! v& X) h/ B
  plot count patches with [pcolor = green]3 m& C3 [' b( M( ]. F
end
+ n4 s+ w* Q5 L. \. n可是运行时提示no such plot: "Totals"" L/ }$ a4 E; g3 Z- v
error while observer running SET-CURRENT-PLOT7 E( F/ _5 T7 p; R5 b, k2 n& g
  called by procedure DO-PLOTS5 t0 {# H2 N, }+ r2 j- r
  called by procedure SETUP9 M3 G% E) g: B" g9 L/ C7 X
  called by 按钮 'setup'
$ M; {- U* C8 A求大神解答啊
发表于 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
2 |- L0 x  `: H* D) u- d建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-29 14:27 , Processed in 0.019611 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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