设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12402|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( X  P2 u. k, Q+ L$ D: r. qto setup
5 E# o! D; N; Z1 g, q" @  clear-all
. f7 r3 u# u, v* t  setup-patches
6 O8 I0 o2 y' q  create-turtles 100
/ T: l& ?# P# c/ T4 K  n- v  do-plots' r# y" T" Q8 o8 v. K3 F% T: Z
  ask turtles [ setxy random-xcor random-ycor ]
5 O( p, |, Q0 ^5 bend5 @  K4 \( Z0 T  N5 ~
to go- o3 ^4 ~" V8 ~8 y  `
  move-turtles% L6 G3 @! F( {$ m% [$ z, j0 S2 I
  eat-grass( e6 _* L& r& F2 x1 a6 Q9 I$ O8 Z
  reproduce- n$ h; w( t, |
  check-death
5 f  Y4 E8 m* `5 t5 C/ z# |  regrow-grass
) ^! G  e- Z5 H+ D# D' o/ z  do-plots
1 a9 P* C4 J8 kend
/ L; f1 U5 T7 n) \to move-turtles
' {" R6 g& ?: r' Z: P. v  ask turtles [1 r* C& W. Z6 v, j. y; U2 [
    right random 360( O+ `$ k  G5 F- a3 [1 H; _. y
    forward 1
4 X! X1 A# `, B7 `    set energy energy - 1/ O" _& F. c, V$ ^" b% @
    ]
0 h# I. o$ |9 `* C6 Rend- E4 Y1 F) Z  s: N
to setup-patches
2 M, L+ `. L  E. g  ask patches [ set pcolor green ]  Q# @8 p7 K0 A2 K7 v
end
/ @) C% \7 \  ~# pto setup-turtles
5 `+ y: U; [: _2 N! M  create-turtles 100
9 h+ S6 ]' j/ v  ask turtles [ setxy random-xcor random-ycor ]6 g7 R- t5 j" q# T% @" ]  ^, a* a
end! |3 H! [5 i; h" [: B& ?
to eat-grass5 D4 l- Z0 V: b) c; \9 |) A9 u8 k
  ask turtles [
/ J8 c) R$ S8 o    if pcolor = green [4 b$ Q$ l2 {2 A: Q4 w
      set pcolor black
# S: j, ?8 ^3 }7 F- @0 f      set energy (energy + 10)
% o+ S, O3 g9 Q% ^% ~      ]
2 y& a7 j) ?1 _2 j    ifelse show-energy?+ i& g! w: N0 D& s: f; M
      [ set label energy ]
: j1 f. S( Q' k% S      [ set label "" ]) h4 |) J0 V& c, l1 b
    ]
0 N6 {) _1 Y/ G: M1 ]end
3 A* k! h  }! rto reproduce
' \: H2 ^( S% Q: z  ask turtles [
& Y9 W/ m# l) b' J: l- U" O    if energy > 50 [
$ q" i0 N: O" g; j  ~5 C' D      set energy energy - 50
  G5 ~7 ~+ a! t$ X- o      hatch 1 [ set energy 50 ]4 z/ t* c/ N$ t. y
      ]  m/ ?) j0 N% s3 o3 S5 X8 V3 X
    ]
$ [1 A$ j7 Y, g; Q" f! f2 h3 W0 O" Lend
* D, n. q, t% l3 N* o  {* E$ A* xto check-death
* O3 e# v( _4 _: Z4 ?* @! H  ask turtles [
! Z5 o2 K9 K' ?  P3 |1 W    if energy <= 0 [ die ]
/ b5 P  R  Y' O    ]/ ^8 M. c( Q; t& z/ A& V
end
% R7 h/ u, K* `. }1 f! R# _2 H: _to regrow-grass) ~7 ~# F  @; b, k' N
  ask patches [# a$ e  E) G- |0 f/ k
    if random 100 < 3 [ set pcolor green ]
- S6 S: J' I) s, z. Y    ]
+ b7 [; u. h2 _0 z7 c2 iend& o0 w% T8 o/ I1 b  T* x
to do-plots$ G5 _! j! w* ^, }% L$ U1 u1 z
  set-current-plot "Totals"
: s# A5 e6 ^% B" i9 o# i  set-current-plot-pen "turtles"$ B2 c- S1 ]" D- J+ O$ [5 u
  plot count turtles& Y( A  o6 y* X+ r- o- a! X# E
  set-current-plot-pen "grass"& I2 }6 J/ e+ T$ }% P& F/ u
  plot count patches with [pcolor = green]
5 f! K% D2 i3 _end+ a2 W( x! ?9 T& g- t
可是运行时提示no such plot: "Totals"
4 D1 w, t: q* y/ cerror while observer running SET-CURRENT-PLOT7 Z% M4 w. w$ W4 Q) X
  called by procedure DO-PLOTS
- P/ B" z9 `7 R" a. N6 Y: m* n  called by procedure SETUP
& @# t8 o- {! y3 M5 U6 u  called by 按钮 'setup'
7 d- N$ B. D4 C0 ~2 u9 s; x求大神解答啊
发表于 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 : H; K' @0 A1 P
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-17 08:59 , Processed in 0.016023 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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