设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10029|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 @8 o: _0 X+ X& d/ \to setup
4 q' y. M7 I+ v! T" \2 ^  clear-all
$ `6 [5 S4 B$ Q1 r! U( n4 v  W  setup-patches8 n3 ^" e. }' q1 R
  create-turtles 100
/ N: F) d% a9 w4 o" [  do-plots
! I; W" t( h! ^6 k  ask turtles [ setxy random-xcor random-ycor ]
& p* m/ U$ |5 A$ i( Y1 Fend
  }, v! S- J; t7 j) {+ X! [+ Mto go
3 k: A/ a: j, |2 i8 c" r  move-turtles
3 z4 a  j2 ]2 z# Y  eat-grass
$ z; m0 X1 @7 ?  z6 J+ w( Z  reproduce
/ k7 \# U  @9 I: t  check-death; V% B% K: M/ i7 |
  regrow-grass
3 A3 m* C* X  ~1 `  do-plots: |& e5 N: X, w5 p
end
! M  L2 f$ o# N5 ^8 y, Xto move-turtles
& q  ?* u( V' a! H1 U  ask turtles [
" s& _; j! T: R4 o) R3 e" R    right random 360! o2 x% b- P/ K0 A+ Z7 c
    forward 11 w; w" K' s1 \& O& M0 ?0 U
    set energy energy - 18 v$ c6 J8 O2 l8 Y+ X* W4 l9 f
    ]
6 |9 f# h, K- X. R4 J' Y6 y! U+ xend
5 M: n: v: f$ k1 Bto setup-patches4 i; C5 {4 n  P# B, z9 J6 F+ t6 U
  ask patches [ set pcolor green ]
* B4 j, K" T  o# |end
% y4 h0 L, u. c4 Y( P" s  jto setup-turtles
9 y% p4 T3 M5 M  create-turtles 100
/ e$ \# A- W+ z4 J  ask turtles [ setxy random-xcor random-ycor ]
; N" s; E4 r0 a5 E0 T" K" O! q1 Q% Aend. M4 i2 ^6 \. y& @  B" c
to eat-grass
/ o" }9 u9 H& Z% v" g2 v. h5 w  ask turtles [
1 D! \+ G+ c* ~" C1 T# Z    if pcolor = green [, O# j' e/ W! `$ V
      set pcolor black
/ ~) a* a  x3 W: H* E6 Z      set energy (energy + 10)* o; L: v# n$ g2 y/ s5 l
      ]- K( Y& _5 E: r
    ifelse show-energy?; L( r  H" p0 {/ c' |! V3 }
      [ set label energy ]
3 w- |8 }2 M8 F      [ set label "" ]
! w1 W( R0 ?& l* r* J    ]7 J* Y1 m7 y1 i
end
1 B0 u1 B: l; B5 A6 Z+ |& eto reproduce1 r, W* B+ ]6 ^4 f! K3 A7 ~
  ask turtles [9 T/ ]# D$ ~' G7 s
    if energy > 50 [6 j- ]6 X; b, C9 ~0 o, M" C
      set energy energy - 50
" R9 Z8 c3 t' o8 d, |      hatch 1 [ set energy 50 ]. O, }7 x5 h+ r1 ~3 D) }9 k
      ]" f1 y/ A* o5 t- u. L# {
    ]/ `) f/ [( g* d
end
9 X! e! t, J. E2 d6 h3 wto check-death, _3 g1 q3 N+ T% L6 p
  ask turtles [6 \4 n  E. a+ j7 D( D2 g2 e
    if energy <= 0 [ die ]
& W4 ?: [2 s' z! Z% R' H# `    ]! P3 n: Q. y6 v8 c. M" z, I
end
1 S6 w& {0 J9 r9 n! h4 W1 @+ qto regrow-grass4 {& \& b: q0 r+ w
  ask patches [8 S' M0 F1 M3 T
    if random 100 < 3 [ set pcolor green ]
  O1 Y  |. n" c; k- ?. D  j    ]
% A! B5 \9 Z. f+ C6 Aend# ~1 }- G4 L1 r# \' M6 s) z$ t. ~
to do-plots0 ?7 j& f  G6 {4 L* P' Y  j
  set-current-plot "Totals"
  {$ y' f( ?4 U2 [5 S7 p1 l  set-current-plot-pen "turtles"  `% G6 o1 B0 G$ P7 s
  plot count turtles
, A3 \: g: s/ h9 y  u  o  set-current-plot-pen "grass"
! ]/ E0 F' L. U  plot count patches with [pcolor = green]" P. W" A2 E8 W8 o: S$ H# A
end" B' {! F* z" C7 }
可是运行时提示no such plot: "Totals"2 g# T5 p+ _  v! i* w
error while observer running SET-CURRENT-PLOT
! m0 ]$ ~5 l3 A4 p, ]' l3 V9 a7 {9 H  called by procedure DO-PLOTS4 x  T  p$ k2 Y3 d5 p+ ~
  called by procedure SETUP/ L& u5 N0 a! ^; w4 }, }. Z- Z
  called by 按钮 'setup'1 k% s( d* Q# o. k7 s! _) n# ]* R
求大神解答啊
发表于 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
$ A: q% w) t& I, ]8 W7 n) K& X建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-7 17:37 , Processed in 0.017277 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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