设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9182|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 d$ |2 y, C/ zto setup! E- f3 X+ f/ f, x' _
  clear-all9 N0 r( J2 g* Y2 z, l/ w6 R% e
  setup-patches
" j/ ^" \: w2 [0 Y3 g% U  create-turtles 1000 [& e- c& X" o: e. v8 g0 s4 J5 {
  do-plots) C$ ^. Y" @& G2 I1 R1 U  v
  ask turtles [ setxy random-xcor random-ycor ]1 Y2 X  c6 x+ h! Z& y5 G" p; L! ?
end. ?: s% a7 k8 a1 i; \3 H
to go
* ?- j! c6 \2 e) K  move-turtles
# U( S' B9 ~) x+ q% c& L  eat-grass: C% O: F9 L4 B/ f/ W+ A# U
  reproduce9 p/ S/ m) o: W) E
  check-death
8 j1 Y, y8 e# \' E: G  regrow-grass& l1 |8 F2 v/ v5 K5 ?5 w7 j% y
  do-plots" w% B# S" ]; q4 R) o
end4 R9 N6 ~, L" j
to move-turtles
8 Q, b+ T' i5 k& U, X; ]  ask turtles [
. @& u$ o0 C( ?" d; F- m    right random 360* F: K* s  d1 Y! ]  \5 N- y
    forward 1
. J- i9 P. L1 \% R    set energy energy - 14 T  t0 {2 ~* p" \. |2 g! ^
    ]
5 d. {) B  l$ A1 r! kend8 b- P  z: g  R: _  ~: ]
to setup-patches
9 ^- \: q$ W/ R* I" T+ [) V/ e- g  ask patches [ set pcolor green ]1 E& U. G1 e9 Z0 n
end
2 g! T" X0 |; N" \& wto setup-turtles- }0 L7 {0 |0 o' K# {
  create-turtles 100( z4 `: k) n3 `- K+ w
  ask turtles [ setxy random-xcor random-ycor ]0 S9 z8 W4 g# p6 g0 ]$ D# w
end
1 Z6 v1 S* D5 Xto eat-grass
. c! A0 i& ~; [  a. b7 p2 m  ask turtles [3 S3 b  h6 _5 F2 o9 h1 h
    if pcolor = green [
* b0 M) O6 j- Z) g/ B      set pcolor black
( F+ D6 w8 W0 O  v6 E      set energy (energy + 10)6 `9 G* B) i6 G' a  |  {/ o
      ]' F/ N& ~; n2 @8 v3 Q
    ifelse show-energy?- H/ a: B0 J5 J4 a0 P( k, ]
      [ set label energy ]
- b8 r# J& M2 c3 f; p      [ set label "" ]
. z  u4 i" d% a- m, j( t    ]* Z! j+ `5 `; U- ]# Y
end* _0 }0 L, c& n  e& K
to reproduce
  d- o2 V4 t2 x- S2 [  D  ask turtles [$ m0 t$ G7 \4 ]! n
    if energy > 50 [8 A0 h  X' I2 ]9 I6 x
      set energy energy - 50
% n) Z3 N. L/ t9 x8 i, c* a      hatch 1 [ set energy 50 ]
4 @+ M. N4 K6 N% N9 g5 n. q+ L      ], _) I  f9 s: g) a( t8 B, V
    ]
8 z' l, v3 y- b  K0 vend, r$ N; o  Q+ A& c0 K* E
to check-death6 b0 W& S$ F9 C$ U2 F
  ask turtles [
3 |# U; b! g  I- U    if energy <= 0 [ die ]( _4 `; d$ k2 r3 O: w" V6 t! C7 b
    ]
9 w, F( K5 t; Hend0 D+ r. P$ g5 {- V' m* f9 X! X% I
to regrow-grass; F5 y0 q  A0 `
  ask patches [
2 c; w5 G( G; e  M: Z/ h    if random 100 < 3 [ set pcolor green ]8 n( D! C- H# L% E
    ]
  v9 L" @, ]3 K2 ?, d( t; Tend
( _& c9 T, {9 P! `to do-plots+ a/ ~: e9 m+ e" m" w( g
  set-current-plot "Totals"
( c. X3 \& @( v% O# ^1 M  set-current-plot-pen "turtles"
8 C$ h3 g% J/ s3 A5 e% ?* K  plot count turtles% f) H) D& O: y+ f' A: s
  set-current-plot-pen "grass"' G  R; U% x& L# r
  plot count patches with [pcolor = green]
1 J9 s, f" O" v5 }4 i7 pend
8 j9 X. t9 |' m+ Z7 k可是运行时提示no such plot: "Totals"
( _& x- o* m) ~' t; W! K8 ~5 nerror while observer running SET-CURRENT-PLOT
2 {8 X6 t- Y5 |( `3 M- Z. \. _5 q- D5 p  called by procedure DO-PLOTS
+ ?9 C& X- W2 z, s/ `/ C  called by procedure SETUP- ?7 M7 l# m, q' k6 i: k9 W
  called by 按钮 'setup'
' K) T. S/ N6 z) j: 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 - `+ [# \! `  L* d& a
建一个叫做叫做Totals的绘图框就行了
$ T( {+ V' X( |: G. b5 l7 r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-11-23 01:59 , Processed in 0.019953 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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