设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9179|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 e, c* [6 T# W9 h6 d9 M. |to setup
1 g$ y* ^5 m+ |7 E8 g9 `0 l# ^  clear-all1 P) C- J, c6 N+ u! j
  setup-patches
1 D! x4 I, f+ u, F- W  create-turtles 100! B, v7 L/ ]7 ]# \
  do-plots# q& Y* `8 U' O  R; l; ]
  ask turtles [ setxy random-xcor random-ycor ]
( k5 K  k% Z# q3 Lend6 I/ f2 U$ t" o- F& R
to go
9 y7 e; |4 t1 x: F5 h5 X  move-turtles4 N8 B) F( f1 M$ `3 W9 q0 c5 }
  eat-grass! _' Y9 p3 h/ M( u' s$ I8 l% t
  reproduce
( [+ D! M% n3 v/ `: k5 z  check-death2 K9 a$ }6 m' G. I$ |
  regrow-grass6 P- ~4 i4 h; _
  do-plots
0 F9 ]( R' d( dend. R4 B* r. G7 i3 P* t1 x8 K( V
to move-turtles0 U2 S# }* P' ?, J" H; U. a
  ask turtles [! s* m9 U7 @# I2 v* ^# P
    right random 360
% I" Q: j2 f5 h    forward 1
. y/ E1 M' N& f) n    set energy energy - 1# l3 m, c  N* [& Y
    ]! U5 L, e/ }, a& L
end
9 a: Q6 r9 i0 k7 eto setup-patches2 w: b( {8 w( C! R" `
  ask patches [ set pcolor green ]0 K/ }6 |: R- A7 E
end
+ c7 L0 b" g% `* ~& nto setup-turtles
6 _& \' S& U, f; e, {  g/ B7 t5 |  create-turtles 100
9 c$ K! i" L" f9 g  P: V" o) F  ask turtles [ setxy random-xcor random-ycor ]
9 ~/ n/ L. `1 D2 f, f# ~- S' oend1 f0 S" |8 _: R
to eat-grass( i0 O! B9 g' N! O, d- B. {  @9 o
  ask turtles [0 ~# q" s+ N9 H; K! V$ r
    if pcolor = green [
4 t  I3 G& C, H5 V, v. ^$ w      set pcolor black
9 X" {5 a4 N4 p" ^      set energy (energy + 10)
" z8 u5 [& K' _; K4 X/ V. L/ }      ]) G, A1 j  c& g3 o5 |
    ifelse show-energy?
7 \: ^; v. N& i      [ set label energy ]
( I2 I8 X% D- }' d; ~      [ set label "" ], l% ]# o8 b- P
    ]
# h5 P# R. @( u0 p; Fend
( [/ y* o2 o4 \* K8 f/ ?to reproduce- J& c0 X% E' J  ?
  ask turtles [
9 s! B7 A% _& V    if energy > 50 [4 h9 @- A) m+ Q9 D- D- j
      set energy energy - 50
! c. E  ]* h7 d; u+ t) V0 g0 {      hatch 1 [ set energy 50 ]
& b6 s) j$ d; p5 Q      ]) H* w! F. q  ]* ?5 |
    ]6 P& ?, y  p* N- C, J! z
end3 ]3 O; y5 z6 ^' ]3 i# I! i: I
to check-death
+ B, D: D5 b; u/ u5 O6 ]0 u  ask turtles [; ~8 e) `6 ~. P" N$ `
    if energy <= 0 [ die ]: c( ?8 s$ b4 l1 x7 ~9 n" `: [
    ]. T( h" t, p0 D! W6 ]0 W4 Q# x- c
end
- m! K- x$ n: Y, mto regrow-grass  s% |) P; M5 P: [1 o
  ask patches [$ B1 P6 ]4 p* l$ W! H  @
    if random 100 < 3 [ set pcolor green ]
4 S1 {, Y7 y7 S* \3 A( L/ L    ]
# z& u) d' Z0 @1 L+ E: c7 Dend
+ u' L- h7 k) {/ B& Lto do-plots
; g1 h3 o2 E  }3 |  set-current-plot "Totals"; e3 z' B" e0 C4 z. M8 F+ ^
  set-current-plot-pen "turtles"
' ~. m) W5 Q  F7 W$ U8 I4 h6 J/ q+ z  plot count turtles# J5 I) ^8 _8 ?$ ?, h
  set-current-plot-pen "grass"/ ?( D2 m% g( N) P5 m
  plot count patches with [pcolor = green], {' l8 ?" E! u
end, W2 |* C: h5 ]! U- P
可是运行时提示no such plot: "Totals"" Y$ C3 o) C9 e6 ?0 g7 n# a
error while observer running SET-CURRENT-PLOT6 L( |# Q- e7 F! ~) q
  called by procedure DO-PLOTS
, S2 ~5 b, q2 c  called by procedure SETUP2 ], |, d+ b- T& _* W) a# y( o
  called by 按钮 'setup'
9 y, v* j9 Z* ?, m0 ^4 P9 n求大神解答啊
发表于 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 $ @& x/ P4 e. l
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-11-22 19:05 , Processed in 0.022323 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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