设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12637|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]1 V  z0 r! x2 H) S, O
to setup0 K2 W  i. x; A( o7 v0 k
  clear-all
8 O  N1 Z- L  m/ I8 ?4 A6 z! v  setup-patches
5 J/ r3 O( s  ]6 e/ H. p0 D  create-turtles 100
7 N( ]% Y% o- x1 c/ X6 G, E! r  do-plots
* q+ s& y" \& e  ?  ask turtles [ setxy random-xcor random-ycor ]
9 }$ o" z+ d1 d9 E/ @end) u9 U' g/ W3 j1 D6 Q: ^
to go2 q3 m, q0 }) x9 h6 ^7 {
  move-turtles' ]( _" ]% V' |: l4 v, x: V: E
  eat-grass; y6 C+ Z% e) `7 E8 T
  reproduce
3 A" t: Y/ F  [  L" Y  j0 q  check-death# c- n* X0 _& {# Y- F/ x/ \
  regrow-grass
8 \& W$ `7 D* F  do-plots
, p6 g: `4 ]/ M: M' R0 gend
4 U9 E1 S" L- x! U' H8 B" Dto move-turtles
8 T( D5 _7 l* g: R4 W" p3 h  ask turtles [0 H" o9 ?4 ^# R  [0 U6 @% w" d: v
    right random 3602 K7 |0 i; V+ f9 q6 K1 p
    forward 14 ?/ D: q/ q1 T# z, Z
    set energy energy - 1
+ \/ ^+ Y5 T) l* c    ]* t, j; {: u) N/ j- M' l
end
+ f- a8 e3 W4 x' Z. k: Xto setup-patches4 i/ \/ G; C  a) v+ Z
  ask patches [ set pcolor green ]+ d& C' b- g4 [, r: Q
end
% e) a1 [& i% i& F) Ato setup-turtles
5 [3 c8 m1 ~/ }. O+ H' G5 I9 w) d; U  create-turtles 100
: j, Z; X6 d& s) g4 f; h  ask turtles [ setxy random-xcor random-ycor ]  ~+ e; x6 f$ @/ D
end
' W. k1 Y/ \$ o* j% Mto eat-grass
& |* H  |- l7 P* ~5 M; J% {1 S" ~  ask turtles [. l- b5 p3 @2 s& F0 C9 B* U
    if pcolor = green [
8 l9 E2 j* {; x9 b; p5 i( ^6 s      set pcolor black
3 \3 r0 Q- N& M( l  G      set energy (energy + 10)$ r# x) @( d& O' {3 m) J4 D" w" M. g
      ]/ {% j+ ?$ T. x% G6 A- s; C
    ifelse show-energy?% T5 P0 u, X% Q2 n" a4 B; d
      [ set label energy ]% `0 M3 K# @+ m8 N+ y# {" D
      [ set label "" ]
; |) Y# k2 V9 y: o& U    ]7 _9 F8 {) M! _# d
end( ~! `2 s3 g$ s4 V. A, [/ K; l/ Y1 I
to reproduce1 L$ q/ \8 s6 U& R3 _
  ask turtles [; _' K1 l( ?# U' o7 ~
    if energy > 50 [
6 b/ F: L" I& c; B  u      set energy energy - 50, f+ z7 a* V. b5 Y8 q& v
      hatch 1 [ set energy 50 ]
9 g7 f1 |. r+ F% L: l0 y+ v1 f  {      ]
4 w  }7 D  O+ V2 E; _& X" {    ]
# e' G- U. b3 d  lend
" J+ ^! c+ T& tto check-death2 J0 r! D1 r5 `% |  y& G8 m$ k
  ask turtles [/ l$ R  b. d7 Q4 Z) \( m
    if energy <= 0 [ die ]9 y! |2 o* |/ k" e3 z6 c" D" z2 D( c8 M
    ]
# D3 r) T8 ?* q* ^; I" \* Pend
+ M* \* F) D; f& z! T) hto regrow-grass( |( \! c% O) m
  ask patches [7 R# X. V% j6 `' l5 N& [1 `
    if random 100 < 3 [ set pcolor green ]$ U$ g' I4 x/ l: p
    ]8 b& [1 K$ T1 g9 O  `
end
0 K: W6 @0 N& ^6 x* X, R6 d/ dto do-plots
. Y  V8 N8 j( e* Q  set-current-plot "Totals"
7 x0 ?' n5 `' P. _  set-current-plot-pen "turtles"
3 k" ~8 |& x1 o: Z( x1 d  plot count turtles
4 t- W/ ]3 K% g  Q8 l/ ^  set-current-plot-pen "grass"5 O( p& F7 j# R  G
  plot count patches with [pcolor = green]
: |& B. P/ E( z7 e  Hend8 z% R0 ~# r+ A+ t
可是运行时提示no such plot: "Totals"# }9 T  X5 }1 D
error while observer running SET-CURRENT-PLOT! \8 D6 I8 t  L1 X, v( p% C, W
  called by procedure DO-PLOTS. H& I% C' s2 p* @
  called by procedure SETUP9 q; L1 [1 W# U( o! L
  called by 按钮 'setup'# j$ B7 R) |, [: R; f- 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
. S/ s6 m, g( D0 B" y5 T  ]建一个叫做叫做Totals的绘图框就行了
" m( }( `1 Z  B! F
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-7 19:33 , Processed in 0.013874 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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