设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9086|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 n+ ?9 k# w) B: w% a+ K: ]to setup
7 \. ^& I- U4 y4 g2 b1 V+ v  clear-all
" e1 I4 Y6 q9 L; Z& y' b  setup-patches- e( {+ O% M5 k" o
  create-turtles 100, R. W% k6 s7 {9 M
  do-plots5 O% G( e- G! N% j& U  W8 @
  ask turtles [ setxy random-xcor random-ycor ]- `8 Y, w/ e7 v% {
end) M9 O0 F6 I2 Y1 K: p
to go. h0 O( N+ ?, o8 G5 u: b: z
  move-turtles1 ?5 ]9 }( k: R+ d2 ?4 o
  eat-grass
2 E' F/ J" L) S  reproduce
+ ?5 p6 y& [2 u3 V$ b1 z1 w; K  check-death
! F: P7 u7 c* H' ?% [& w  regrow-grass
. M" I$ O+ d) g8 O; H; F+ I7 i/ ?9 h  do-plots4 C' w/ A; B/ p
end
' q8 l4 T1 Y/ F9 u. pto move-turtles
7 X# b+ L, q2 m7 }1 G! h/ y  ask turtles [
1 q* r3 A, Q$ \0 V# a0 a5 r    right random 360
$ t* H8 [. V# f" t; N9 t    forward 1
, M# |1 Y) T( O2 X4 P' v! H, h, p    set energy energy - 1
8 v2 x- d( E7 Z4 c. ]6 A$ c    ]
$ \/ L  P4 @( t: k1 K" Tend. D, o7 `2 u7 M; L4 k* x  g
to setup-patches$ L: u+ I2 ~8 U0 P8 X6 z7 E
  ask patches [ set pcolor green ]& O! g! G  I; m# Y1 h
end
& P. a7 }' ~" I  v, }, Nto setup-turtles! h0 G# e& u" C  V, P& n- }& u" a* z
  create-turtles 100
0 n  y/ |) s' W& z  ask turtles [ setxy random-xcor random-ycor ]4 W+ J3 C" k8 u* Q5 R9 N; w
end  p/ I, B0 `) s0 Q. T, ?
to eat-grass4 B+ o7 r6 \6 _9 b
  ask turtles [
  z' S' m0 u" N" {3 i    if pcolor = green [
" {2 o2 ?$ G) }/ R      set pcolor black
' N; ~1 X) M9 }5 K      set energy (energy + 10)$ R8 l; w8 g$ E$ Q
      ]
2 G* F% A# t' v" b    ifelse show-energy?
+ F0 R/ N, P: J# S$ @. h6 X/ E      [ set label energy ]. h3 `- @3 u; N& y" }
      [ set label "" ]
6 K5 B* I# [7 C6 P8 ]) e    ]
4 T# U/ Q8 i' f/ x0 @end
4 J; k' A+ s7 r8 b- ]to reproduce! |& L  J8 b2 W% W$ C
  ask turtles [
! }8 G- Y% M$ s3 i    if energy > 50 [* O8 Z* l- H3 D0 f: s& R
      set energy energy - 50
+ ^3 _6 h( F1 t$ ^      hatch 1 [ set energy 50 ]/ v" m9 B- G9 X2 q
      ]
" R  X+ t% Q9 `" T* d) \    ]/ a5 z5 k- c' G* z: L; ]# k
end& C7 A) Q- e+ ?% x( A
to check-death$ B0 S) _; f2 w3 O5 E! x
  ask turtles [! K3 y. L  }$ {: W+ J% `6 F
    if energy <= 0 [ die ]+ w" d- f- M- X# J" x
    ]# ?* A. H: X9 M! @5 v
end3 [: Q6 E, ]+ [
to regrow-grass
" F7 P) E& w2 k4 e* ]! o  ask patches [, {  W+ f$ a& S
    if random 100 < 3 [ set pcolor green ]
0 }+ J9 D, d' l5 C9 g6 c    ]
( \4 U$ R4 g0 N2 j) b+ M; xend( y( z5 k0 z% X. k6 k
to do-plots
  x2 Y/ ]3 j8 \' `3 Z. ^# n  set-current-plot "Totals"
9 h- {! I/ S( k5 H5 Z' k7 L) N) n  set-current-plot-pen "turtles". L7 d  Q0 R( v& O% r6 T4 f
  plot count turtles! D! ]2 n" n& z3 y. R& P
  set-current-plot-pen "grass"
) k. J2 s! `2 l$ c6 S1 Y  plot count patches with [pcolor = green]' f- n8 _0 O$ P/ P1 d6 e  ^0 ]
end1 Q2 M2 @* T2 q: n* g4 H# E+ [
可是运行时提示no such plot: "Totals"& l- `& i( }! l" z% O- W
error while observer running SET-CURRENT-PLOT
0 q4 p# O* [6 U+ \* g' e7 j  called by procedure DO-PLOTS2 V. c9 a% M  g( l* O
  called by procedure SETUP0 Q) D8 ~! D8 l
  called by 按钮 'setup'
. V. w% d8 W: F$ M/ w" Z9 [求大神解答啊
发表于 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
- |! T3 w$ \& s! P- ?8 A  n建一个叫做叫做Totals的绘图框就行了
7 y- N( w/ ~/ b! h8 |# ~+ p5 V( r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-11-13 18:58 , Processed in 0.020677 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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