设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11004|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. W5 O: |9 G0 t* m+ x8 p- eto setup' J: @7 J/ D$ p2 l
  clear-all$ b( G' Y% ~5 l) w( E4 t
  setup-patches
/ T" @# g- F1 z6 e  create-turtles 100
% S/ r" S4 W' A. c/ c  m* j5 n  do-plots
  W5 G1 v$ R! ?+ V9 ]  ask turtles [ setxy random-xcor random-ycor ]  V5 b* f; a+ r* h9 D4 r
end" t9 R5 |' _8 W
to go0 ?( `  _( O2 a
  move-turtles7 q% }" V  I% W( W
  eat-grass
) p1 `. C' A* ^  i) u  reproduce
5 v; u4 K1 U( |4 g) H( ^, K* a7 ]  check-death
  Y" k% H) J/ x& J  regrow-grass% E; @" d8 h; G
  do-plots7 B% K5 Y. {+ o4 N* D$ k
end
; L6 t- j6 `2 B- v0 Y4 ito move-turtles1 [0 E+ v4 B" v& `
  ask turtles [
* Z# s2 e( N# W8 N" s, G. Q    right random 360/ `& v8 U$ \( }5 K( e
    forward 17 N; l$ s' z, u% P
    set energy energy - 1) n' b# ?3 D, }+ C) j  J
    ]
8 y2 Y. b/ c. _4 P! vend
; ]0 x. |! p& V  |; K8 O4 Ato setup-patches$ k' i. [. M9 g- g# r  d
  ask patches [ set pcolor green ]
, t. ]: z" Q# gend
, s6 E/ Q4 @" q) x  G: E6 a$ Yto setup-turtles* X, i9 H% J3 G9 n
  create-turtles 100
3 r9 `; c3 F1 _6 S1 c$ s  ask turtles [ setxy random-xcor random-ycor ]
/ h/ s6 {; n0 D; G+ ~end
/ I: M9 t" {/ u+ Z5 zto eat-grass; @. L2 A* g& ]5 o6 E+ s* Z, E
  ask turtles [
* W+ U% M- [$ L$ Y# k    if pcolor = green [- L! Q0 X# `7 H1 l6 n6 x
      set pcolor black
" X& e2 J/ U- s# j3 M      set energy (energy + 10)
. S. s, z9 ^& Q0 T0 k      ]. C; X8 z* r! T+ P8 ]" |# Q
    ifelse show-energy?
1 L" e! \' I7 ~1 L, ^6 b      [ set label energy ]7 I& W2 w9 W' O" D1 b" O
      [ set label "" ]
" g; F) s- x& u1 @- H) J    ], v. C5 t+ ~  j* v2 [* r* q8 R" b
end
; ?' q! j# z3 {to reproduce! H. u* H' S) K* C( P1 Y; I
  ask turtles [
. k5 q; w7 j6 `" f    if energy > 50 [+ `% p  @, h1 j! l% R0 [0 N, j6 D, T
      set energy energy - 50; i4 K/ K( [1 p5 L6 ^! p+ t. i
      hatch 1 [ set energy 50 ]# b% V1 \6 @' W; [. Q
      ]* v" B0 f# r) q* w0 M
    ]: s4 j# S9 G' D3 h& x
end1 t! Y5 ^: ~) \6 x
to check-death1 o$ D$ j! v' |/ {
  ask turtles [$ b( n% ^7 m) C" i% m' ~
    if energy <= 0 [ die ]
( L/ q2 c0 W" D5 ^    ]5 k- K  I* K2 l+ t9 s1 @
end/ p; N& o' r' {* L+ h& }
to regrow-grass$ A6 @, E; Q1 ]( o* Y) p. q
  ask patches [; ?1 |, y5 W4 C7 [$ V1 @
    if random 100 < 3 [ set pcolor green ]
% g# p7 x* n) S, `% y/ I    ]' O6 [# U# c% p) P
end: ^9 z& [; ^9 {, Z0 f
to do-plots$ `& w$ U9 I4 g* _( s
  set-current-plot "Totals"7 z5 j" T4 m( C/ k. w' {0 d
  set-current-plot-pen "turtles"
( I# u) X8 L9 Q$ z- ?. l  plot count turtles
. C( h- `3 @& }, r  ?' @  set-current-plot-pen "grass"6 N7 j$ U8 b* P$ \& ?
  plot count patches with [pcolor = green]( c& Y( y& `( p' `# j; `
end; g; i; G9 y+ k$ h8 m
可是运行时提示no such plot: "Totals"( T3 P0 G+ j' m
error while observer running SET-CURRENT-PLOT
2 c: S( O$ \% k. E  called by procedure DO-PLOTS6 y2 H8 R& n: i  \
  called by procedure SETUP4 ^) A5 N& b! M7 X- y; \" B" M
  called by 按钮 'setup'. h9 {) Q& ^0 y
求大神解答啊
发表于 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
7 m; T9 V7 x+ z0 m- n; o7 D. c0 F建一个叫做叫做Totals的绘图框就行了

2 K. g% [7 J. \( G5 T哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-25 06:06 , Processed in 1.312819 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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