设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12346|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
+ L: h0 W! \! N" p& e- ^- hto setup
' s. ?' k( v7 w9 x5 O  clear-all
. }. O2 W5 m/ x8 q$ V- o  setup-patches/ g: }; @7 H5 m* C" c* _3 k; ]
  create-turtles 100- Y3 U* I, O0 R) b2 j" K6 h
  do-plots
2 A% Q' t' c; |* o3 [5 K9 R, W  ask turtles [ setxy random-xcor random-ycor ]/ C# w; W% V3 Z% J7 w9 S
end
5 F; P3 f: J1 n4 qto go8 F! p8 P1 E# Z3 ~( E
  move-turtles. R( p* U* O4 a' L% H2 R% i6 S
  eat-grass
& C7 I% m! Y. M  U: z! a$ G  reproduce
( v, U& y' P9 ?9 [9 J. ^3 O/ |, K  check-death, j( P. z8 I. _/ [% \
  regrow-grass8 Q2 E& a& G. J* e$ g
  do-plots4 ?( \) j+ U$ F7 @6 F9 E
end
( V' A6 p) T. E& uto move-turtles
( b9 |* [* I( H# F7 O2 J  ask turtles [
7 V# A3 x! Z* w8 L9 Y    right random 360
" o. p' q7 e. b- C; H    forward 1" m2 {; r- m( |& ~* C7 q
    set energy energy - 1
& n* f% V# y; I) C) A    ]
. ?& p+ o5 g' m7 u4 C% j! e3 `+ Vend
5 L  ]. H$ x* y) Ato setup-patches
  s# n8 U& |. \4 e7 v  ask patches [ set pcolor green ]
$ t" k. H' i' B# h7 M; [end
1 b6 i3 H, K: gto setup-turtles  L2 Q/ U# M2 o2 K$ E, ]
  create-turtles 100
' m. J+ q! h+ U0 m# n- U  ask turtles [ setxy random-xcor random-ycor ]
8 B+ `& T  q, o4 d' U0 K6 kend
6 x# b, k# M7 h# {to eat-grass
( M/ O3 D! [- A9 p- r! v5 G& x8 U  ask turtles [4 H# _  l( C8 t; N/ J* c5 H- F
    if pcolor = green [
( x$ J- b6 s3 \* _. o      set pcolor black
4 o: |+ X7 e+ ~' O5 a: u; {  j      set energy (energy + 10)
' B9 J2 u# A; F2 S% m- ?6 ~      ]
* a0 x& }$ r5 F9 g2 O$ z' I    ifelse show-energy?
" m  c: c" V" c/ i      [ set label energy ]
! b1 K& |, H  E1 B+ C  Y; P      [ set label "" ]
+ V& e1 D, @5 a3 o    ]3 b8 O' i4 j5 i1 k
end
; X" p2 D' C, O9 J3 qto reproduce) ]5 o2 C  ]+ g* y4 B
  ask turtles [' @# |/ Q6 W( t
    if energy > 50 [7 J+ v  B+ [* i& \% x  v
      set energy energy - 50. ~+ l7 B1 |& n1 u' \& }
      hatch 1 [ set energy 50 ]2 x# }) d; v6 Y4 b
      ]
- B" t) V& a) f8 E( r( ^" S+ v    ]6 X* w7 A2 i: S+ S+ t$ U# ?
end8 V  Q' z) ~9 ]. F3 F; r
to check-death
7 X: x' z# \+ w: C  Y4 x  ask turtles [
4 m7 c) t! l0 `, @( v* ?    if energy <= 0 [ die ]
7 R+ Q' ^0 Y. e4 \& y4 x    ]
/ Q0 \, d( r# v& p; Uend6 Y/ I, n. B- B$ S0 g
to regrow-grass
4 ^1 C5 O$ Z& G# J) U  ask patches [
  n- ^7 q( D5 t4 C8 f/ h    if random 100 < 3 [ set pcolor green ]4 L" w9 d) I0 U' _+ D
    ]) E# T& o  f! V; i4 v" K( b
end
- B8 b, P; y, S! D' ~  ?" e7 [to do-plots
7 N. H4 d8 c5 _, q" J8 ]$ P  set-current-plot "Totals"
/ V8 h8 m0 w1 ?0 q, Y  set-current-plot-pen "turtles"2 J& C; u2 C  X, p( R
  plot count turtles
  g! [) z( }( S' b# h# B  set-current-plot-pen "grass"
: O, B9 r( W2 `5 l/ H8 z  plot count patches with [pcolor = green]
" B2 j( `1 a2 O! c' _1 m5 G3 fend2 O/ s% i' E: G7 O! v8 [& M
可是运行时提示no such plot: "Totals"# r7 z$ q, U* V- ?
error while observer running SET-CURRENT-PLOT
! g% z) D' v5 Y5 Z5 O- L  l  called by procedure DO-PLOTS: p# E5 I3 D3 x2 B3 B) L1 J  X1 d" U
  called by procedure SETUP
2 n: \3 [5 t9 j$ Y* I  called by 按钮 'setup') P7 ]+ x+ U/ M& e
求大神解答啊
发表于 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
2 p! P6 j, u% o建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-12 06:07 , Processed in 0.018444 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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