设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12746|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ L# A3 G+ Z3 }7 i9 X9 ?. W$ k
to setup/ E( J1 a. H4 C
  clear-all
- g9 r- u1 V# m' c% ]  setup-patches
, G0 ^. c  J: ~! d' q0 C  create-turtles 100; U3 U3 c: @7 k' [# d+ {
  do-plots
  A, f( r! C4 \7 u- {  ask turtles [ setxy random-xcor random-ycor ]
( @% j0 f: T& \end; I( O- v7 O3 p! K( m$ m
to go
1 R6 c& u4 }& E5 J0 A  move-turtles" g. q% U- |; `2 v; Q& g. C; D
  eat-grass
# v1 E5 R5 l  w3 ^7 e8 d  reproduce# f3 C. n" G7 j. P: i# a
  check-death
! ?* m' ]. w# w: K2 U, C- R  regrow-grass
6 H$ R4 d' p7 n+ V. W; B  do-plots
* [" y' j1 ]) \end% M2 a4 J& H! _9 R
to move-turtles
  C! B/ Y' J/ k  }# W5 a  ask turtles [
4 P0 O+ V% l( b& e# s5 {) o    right random 360
7 J! s3 p- ]7 `8 A  N    forward 1! S. g1 {* f" B5 B' U
    set energy energy - 1
9 y) K& M9 u& \$ I: t( h    ]; [1 z0 N2 b- Z" o
end5 \/ ]: v# G. }
to setup-patches
3 z8 ~0 j/ h* Q4 t2 P  ask patches [ set pcolor green ]
* F& M& [6 L6 jend
( q/ b" ]8 ~7 Z% E, f4 hto setup-turtles7 I. r( e6 {! x  \
  create-turtles 100
* E: q$ U6 ]+ M  n8 A  ask turtles [ setxy random-xcor random-ycor ]. A  O3 S7 _' y. k  b
end
7 N9 G6 }  Q2 |to eat-grass2 Z/ `2 U" m7 C# q! l
  ask turtles [  I7 @) _  g+ b- Q% |: ~$ a$ x
    if pcolor = green [
6 e, H' S2 [9 [' [" h+ p7 n; g      set pcolor black4 o& t8 C0 i6 `9 b1 s% Z
      set energy (energy + 10)
5 Z9 E: n( `- D# g      ]
1 Q5 @9 A7 p4 j; D3 x% C" `    ifelse show-energy?
% |5 _0 c1 v4 K! m: {; s! x) l9 z7 o( J      [ set label energy ]
' G& N  E) |  v' ^- K( G. e4 O      [ set label "" ]
* x) t! M0 \# f3 t: V+ U$ o- i( u    ]
- H8 R- b# ?" X$ {+ o4 jend) b7 b- L1 N" y/ U
to reproduce: n2 l. K. F2 @. X7 ?1 L. h* R
  ask turtles [
0 O1 R* R( j, s    if energy > 50 [
6 @& I6 d* O: }4 b( o5 L0 e4 j      set energy energy - 50
; B* Q% a- Y$ t1 c4 K$ S; L" a* U      hatch 1 [ set energy 50 ]- ~9 H+ c- o+ {' U6 K* W4 `
      ]
9 f, T$ E( m3 {7 l    ], i/ A; [/ I0 ?- G
end
3 l% c4 F9 y* j2 z* N& E& wto check-death2 `& f5 |8 E. h4 t. h3 F& p$ [
  ask turtles [# B3 X1 Z. G( c$ Q: C% `
    if energy <= 0 [ die ]
9 f4 I& m% K0 n8 A    ]
! Y% E: ^8 v- n6 l* T' A0 Q. q( {end
8 M$ Z$ P) g; m7 q& n( G: Y) [to regrow-grass
8 x7 q4 _  t+ S7 {  ask patches [
+ D! h. |9 r, ?    if random 100 < 3 [ set pcolor green ]$ l0 q9 a/ e; q8 u6 G+ |+ t
    ]3 U+ M$ q: K& @
end& S( j. {: D$ W& ^* p. W
to do-plots
7 }) U! T. k2 s( o- \  set-current-plot "Totals"& F0 p; N9 |" Q; N7 [5 t/ ?
  set-current-plot-pen "turtles"
- {2 _, Y* G* O; c* _, f, ?- v  plot count turtles" t, h6 N$ J8 C9 I' |  m) F
  set-current-plot-pen "grass"
) ], r) O! T5 p! D3 l, v+ f' }9 m* A: [  plot count patches with [pcolor = green]. `! V& J7 E# d2 U
end* p4 v( w9 }0 P
可是运行时提示no such plot: "Totals"
9 n8 {- t9 ]% U/ i/ e2 H$ terror while observer running SET-CURRENT-PLOT
/ ^4 I$ u- Z$ M  called by procedure DO-PLOTS
8 j& p9 o4 R+ ~3 K+ O  called by procedure SETUP
( q: D( S$ o9 F2 \6 p  called by 按钮 'setup'
$ ?- [- w' U2 t) M# b求大神解答啊
发表于 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
  F1 l$ L9 f+ v4 a# F建一个叫做叫做Totals的绘图框就行了
  v' h# Z% S; Q1 H
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-14 04:57 , Processed in 0.016427 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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