设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11791|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]0 U4 }- D+ W3 b
to setup
' a1 }# h( N& Q3 Z& }3 w  clear-all
1 }+ U3 r/ L( p2 i  setup-patches
$ _# v3 M% T) q  create-turtles 100
  p; R6 g- W5 n% ^- I  do-plots1 |9 G; x1 `$ F5 h# [9 \
  ask turtles [ setxy random-xcor random-ycor ]
0 l) u& n8 W) o- Xend( D+ L* f* Y7 z3 M9 E
to go" u% ^" U8 [% R  U
  move-turtles
/ W1 p( O! A8 s+ U  eat-grass8 e/ M3 n9 k" I2 D
  reproduce
  s2 _8 e& G  o4 O/ S5 f  check-death
/ I( t6 ]0 ~. m( @) r$ |% X  regrow-grass
  x" J4 s  J4 q$ k8 j  do-plots" z* o  s( Y- i" `' e' K8 V2 W0 z
end8 P) r( }4 Q/ c1 o6 L7 V
to move-turtles
  Z- N  y3 _) m5 B4 J  ask turtles [7 {; I" `, }# y% v
    right random 360
1 Q: J8 t$ d2 m4 @2 D- x    forward 1
  h  _& B2 _0 s1 V% M3 y  S    set energy energy - 1
( G& }' |+ P- ]8 f    ]
7 E' f9 s  z9 d& c, k3 ~end0 @  @8 l, j/ Z9 L2 C
to setup-patches) Y+ g4 f+ m7 @4 p0 D# N7 y0 ?+ I& G
  ask patches [ set pcolor green ]# V/ O! v9 j4 y  o- k$ e# e/ s7 n( x
end6 b( Z+ O' x* I8 Z- |9 j
to setup-turtles. N* F+ G1 d- d( z4 j! ~- v
  create-turtles 100
9 D, R2 j! l% A4 v  ask turtles [ setxy random-xcor random-ycor ]$ G5 T1 N5 z5 [, ^6 u; q. y
end# L7 \. s' n! O( z3 L1 N; u
to eat-grass
2 Y( R6 e8 L) j- A1 `  ask turtles [1 O& y( F- f! S" ~# K6 o3 x
    if pcolor = green [
8 Q0 B  e/ E' e" @6 k! b      set pcolor black- I# w1 E$ v3 X# K
      set energy (energy + 10)
1 l* g9 `: K* t- Y& W) c  ^      ]+ ^) ?' ?& O+ _# P+ H2 `
    ifelse show-energy?
- d2 \* ]. k% O' Y9 c8 j2 p      [ set label energy ]; O/ B. U4 H5 x$ e. S* k6 ]
      [ set label "" ]
1 y3 @$ E5 M) M    ]
  u1 Q" j& i4 I, q, nend6 x! k* O( H" k$ ]  ?' C% k
to reproduce+ T3 h& p& ?8 }. b! X6 q- c8 o: D
  ask turtles [
7 R1 A3 z5 ?% Q/ W0 z. B* z    if energy > 50 [
  J  E( K- r6 w. O3 e/ `      set energy energy - 501 H, a: J8 x. [
      hatch 1 [ set energy 50 ]3 N8 H7 @0 j  r8 h: C6 i9 N5 C
      ]0 L: l3 w  O+ i3 [5 l: T6 j
    ]
7 B- x5 B: T1 t1 N; r4 ?end8 ~5 {# P' a5 D& a& H
to check-death
& B. Q: x9 [& N$ Y4 O" o* y  ask turtles [
7 s# S, Z( F! B. \) R6 _* y$ ]- O/ a    if energy <= 0 [ die ]6 n2 o) o7 s+ V. p
    ]/ W8 w# Y- Y8 u, q' e
end
% @) w$ x2 h: m' o6 S& r8 jto regrow-grass
5 P; D4 Z6 y% n# b5 F  ask patches [
& Q/ ^# `) [6 f: H    if random 100 < 3 [ set pcolor green ]
# F* _$ \* h$ F% W( e% O, `; j    ]
5 D" B  H; ^7 K4 z/ \" Cend* W. l$ ^9 T- G! p
to do-plots, ]9 n8 }: U2 O, T7 B; _0 f
  set-current-plot "Totals"- {# l) v6 w- m/ G, y: ]7 W
  set-current-plot-pen "turtles"
7 e, Q3 z# L( _' s7 `  plot count turtles, t4 D# z, r2 G8 ]: q
  set-current-plot-pen "grass"7 \- c* J0 x: w  i
  plot count patches with [pcolor = green]
) V0 [$ k9 E5 i! [1 M6 [end; B8 z' {- n, L% Q3 X! r1 U
可是运行时提示no such plot: "Totals"
4 U8 s' F* D0 p7 C" f* cerror while observer running SET-CURRENT-PLOT
8 j- I! ~3 `2 k& w- U+ j" {8 e  called by procedure DO-PLOTS) P3 y6 Y% G) K: e, P$ C' u4 q0 [
  called by procedure SETUP, @: ^6 q# Y  t% I7 v/ o
  called by 按钮 'setup'
, L& W, k( e2 W" _  C% u求大神解答啊
发表于 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 " f) Z" v( q$ ^8 C( s
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-30 15:39 , Processed in 0.021203 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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