设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10297|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]# g' M& z& b% T
to setup
. F' Q4 S0 a4 K  clear-all
) o4 v) r" [4 R' f8 p3 k1 D  setup-patches
: H& v* L4 z7 d+ _  create-turtles 100( ]8 g1 l& K+ Z0 ?9 I- C  @
  do-plots
. s  v- E" m; s, L/ Q8 i4 G: N# R  ask turtles [ setxy random-xcor random-ycor ]
2 S' g$ `- `6 j0 x8 c' Pend
. o# g  `3 }( d( ~( _+ Mto go
/ A! ]7 v* l  `  move-turtles) m5 E- L% ?" c
  eat-grass+ R* y5 S$ ^, @/ W5 o
  reproduce
7 O1 {( H# q  m9 b( `  check-death
) T) N2 Z0 L3 R% [  regrow-grass- n: N3 }4 b  z
  do-plots
, L3 y! Z1 h) p1 Yend
) j; K5 ]8 r: n9 ^to move-turtles1 c0 R* Q. ^) a8 M# r$ Z8 {
  ask turtles [9 s7 {- L/ `0 W0 ~
    right random 360
0 b/ Z% I1 S5 T3 `2 t! P: S    forward 1
: T4 H, k7 {* M; ]$ w    set energy energy - 18 c4 K! q) X9 ]
    ]$ U! S4 D9 M; T, z8 h( f
end
. {( O9 a2 H6 R$ gto setup-patches
% D& t+ X- k0 T  ask patches [ set pcolor green ]3 {& X9 Y' Z8 w( ?( T( O. l# r( b
end
4 U, {5 T( Y. H' fto setup-turtles* L2 x4 y# Y8 O" E( w# e  k$ L
  create-turtles 100
5 k% H0 I3 Q! ?' \  ask turtles [ setxy random-xcor random-ycor ]
, Z( G% M- |+ T' V5 Uend
& k3 H  i7 x7 Q6 j  sto eat-grass
% P# {6 n" r' ^) w! N9 H, b  ask turtles [
3 `" {( u$ l  Y9 ~! t    if pcolor = green [
0 R* v9 l4 P- l& w6 ~4 N9 h/ i      set pcolor black' x' k/ n4 I+ u8 K# j, y
      set energy (energy + 10)7 F' b* O0 C- P% K
      ]6 t0 C) B$ i4 c+ D0 w
    ifelse show-energy?# z: [. G3 X& M$ w5 V) B9 I6 ?3 b3 ^
      [ set label energy ]
1 X% w' x& }: r9 f# ?  c      [ set label "" ]
7 \$ {2 ~. n1 j9 c' u# s    ]
) D+ ?" R: n5 ?! ]3 X* kend
, y4 c8 n6 P; ^9 qto reproduce
# U% ^4 H6 D& h2 F+ e  ask turtles [
+ x1 p0 t, j3 ?2 w4 r4 [, |( {( L* P    if energy > 50 [
/ j* o) o  k3 x6 K      set energy energy - 50
6 h  y& D/ ?, x4 I      hatch 1 [ set energy 50 ]$ I5 I" A, \- ~0 {' w
      ]
# y: ^+ I, j. r8 E1 t+ N    ]
3 o* t0 g2 ?. lend
" b, P% X. C- m6 Nto check-death
: v7 r- b1 S+ S! u1 P  ask turtles [
2 q% k: u8 i  z! }! `9 a6 |. R8 l    if energy <= 0 [ die ]) m& L1 C9 a( j
    ]" p+ C6 Z' L9 M# E3 |: W
end
4 u( ?+ g' S+ w( T  jto regrow-grass2 f+ W6 r9 i( B
  ask patches [
) d/ m9 K6 u& q: m- \/ D) m    if random 100 < 3 [ set pcolor green ]" V) g/ F2 ?9 t9 ^2 C- C, @( |
    ]! {3 J% J0 s: O! X# ^0 v
end7 i0 X- D4 n! F" {  R4 ]' |
to do-plots$ l- J! w0 Y; l5 |/ V. b+ i7 z! p
  set-current-plot "Totals"
$ [5 L* ~4 L( w8 H. H  set-current-plot-pen "turtles"
* d  B+ i( V+ A  plot count turtles  W& n3 `- ?3 w% q* ^
  set-current-plot-pen "grass"& z, ^# j, `. H. o7 g: g
  plot count patches with [pcolor = green]
6 H( L! R+ }# C! F8 qend4 i9 }. {# s: v4 h6 Q
可是运行时提示no such plot: "Totals"
4 {9 t/ x. ]9 K* a; Yerror while observer running SET-CURRENT-PLOT
  n' u( U; P$ C* _8 z  called by procedure DO-PLOTS
# h7 D0 I% c7 [/ e+ \0 T1 j  called by procedure SETUP
( S3 R. u' \3 @, Q" i- x3 q) O  called by 按钮 'setup'
4 M3 L: d: d+ Z! f9 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 ! r5 U  x' [* G$ T2 c" s
建一个叫做叫做Totals的绘图框就行了
0 y8 M6 {4 @9 C' B5 @
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-2 14:56 , Processed in 0.020602 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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