设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10904|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]# v' Q/ K/ w8 q
to setup& c, t" c1 D0 J9 e7 _0 z  U
  clear-all
% T  [0 S) c& I9 y( i& [  setup-patches
5 a0 a, l& g- t4 j* j5 r6 Q/ Q  create-turtles 100
: ]$ [- H3 `) n# k/ Z  do-plots0 H; t6 D- M& v! x- q# t. z
  ask turtles [ setxy random-xcor random-ycor ]
/ C# u# ~4 a1 G0 r  iend
* X4 D; m0 Q! jto go
* r$ ]% }  @, y& g( E8 w  move-turtles
& }7 s/ p& {  G$ i  eat-grass
6 |- T$ q4 z" S: I2 o  A  L  reproduce; F( y8 @  {" P1 H7 z, c- k
  check-death
# ]- q, }( |- h  regrow-grass
0 j( E/ O1 Q* k0 ]  do-plots: h1 d3 ]4 }+ r1 a# H+ z
end5 i) L/ r( U3 q4 B" o
to move-turtles* h5 V! Q# x* c% t) R
  ask turtles [1 k" J  Q8 R7 }% T" ]5 W: A
    right random 360! H' n5 R% ^3 p6 n4 L' s5 X
    forward 1
: d' k8 w. J& l, a$ J/ x    set energy energy - 1& ]; I: q; j3 P
    ]1 G& J8 s/ w! X) e- Z5 C- ^9 ^
end2 z: v4 T' d; W/ R/ {2 p% {
to setup-patches
4 a5 V% d+ i7 g1 p  ask patches [ set pcolor green ]! K" ^0 R; Z; v' C/ f3 d/ G: O
end; `: }; B+ d; r0 a! ^6 j* @2 F" F# K
to setup-turtles
- v+ f* y; m( v& P0 L9 b  create-turtles 100
) t* ]- `+ ^1 }# e  ask turtles [ setxy random-xcor random-ycor ]6 X4 I; C& i( K7 v
end) }9 ~3 V" D3 p% b' z1 r) n
to eat-grass4 }$ u- Y/ T! w( S
  ask turtles [7 R' E/ E4 n$ z+ ]
    if pcolor = green [2 n8 s- y" h9 [1 u# Y. \. `9 d7 o
      set pcolor black1 C6 z  E; R& y$ S
      set energy (energy + 10)
8 U9 g6 L  s" B/ n, b# d7 Y+ \! Y      ]( z+ W% L# x3 m4 c
    ifelse show-energy?2 N9 f6 a/ O: E+ y6 A# Q8 }1 J
      [ set label energy ]
4 F: E, k' F3 x, g6 O# W      [ set label "" ]& X( x$ D) A1 ~  L$ @
    ]( b5 X) K  q4 p4 {, p% N4 `! C
end
+ d" \) z1 g, X/ T7 G  xto reproduce
+ R: ]% |4 Z$ R6 J1 Z5 A  ask turtles [
/ n: X5 t0 W& t; d; ^, C6 \' S    if energy > 50 [
+ l6 C& f+ N0 K4 v" t: v& k      set energy energy - 50
8 g0 X- i/ n, B8 _# A: n      hatch 1 [ set energy 50 ]: ?! p& h8 P/ Z2 d2 e
      ]
( y5 {; |; w0 B, B    ]5 }0 R2 @" D) e3 C
end
" B- d. y6 }8 T9 f  m# D# F' ]# `to check-death$ r2 G8 g% e+ g# N
  ask turtles [+ ^  C0 j, p' q. K
    if energy <= 0 [ die ], e4 V% c8 v7 `; S* [. v% G$ X
    ]3 r: R- G$ g- N8 \1 o" s4 k9 g
end
+ r/ o5 F% w) Y4 n- M* Bto regrow-grass8 |; \6 W" o8 L; K0 _5 [+ Q8 q
  ask patches [
, G* T) H7 }6 c) N* Q! _    if random 100 < 3 [ set pcolor green ]$ K$ Y6 O. [+ |2 _$ @
    ]) ?. v. _; Y5 n& k: c9 C
end, }+ ~7 s# r  I+ h( a7 l2 Q
to do-plots
0 L8 {% n+ t& e6 u& O$ n  set-current-plot "Totals"
2 }8 F7 }# f8 G. p' \- F$ X3 [" k  set-current-plot-pen "turtles"
0 w, t3 a; B2 ]% F# k  plot count turtles8 S# g' K: x6 r" I4 P8 ]
  set-current-plot-pen "grass"
9 G+ r% N1 l' a  plot count patches with [pcolor = green]
5 M/ w" ^; T8 I) g. w, t, eend
3 o0 c" u/ r. a% R, Q- |* I可是运行时提示no such plot: "Totals"
5 G4 ~+ ?/ }7 Y6 ^2 Q  [( @  T  Terror while observer running SET-CURRENT-PLOT  B) u  k( \$ ~8 I& d; e
  called by procedure DO-PLOTS
9 b2 S/ r7 n6 e+ R0 C  called by procedure SETUP) u  S( e& o& s) ~
  called by 按钮 'setup'
: a/ H- ~7 Z3 j7 M求大神解答啊
发表于 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 ; P8 [' u( j" G! f2 d) [
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-19 14:02 , Processed in 0.022824 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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