设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11871|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
+ `9 v; H* y2 h* L' c4 Fto setup3 Z& O! j/ R6 [7 d
  clear-all+ e0 l" f8 m" t8 D# u" o
  setup-patches7 t, p; D2 D( k9 @' E" @) R
  create-turtles 100
( Y+ D9 r0 `% F7 C8 y+ p  do-plots  B2 M6 F0 T  g0 }, d6 b
  ask turtles [ setxy random-xcor random-ycor ]
& m& b! ^1 V5 O3 Rend
4 l3 O7 F$ O  e& d& y$ kto go
3 R3 l2 Y% l+ F  move-turtles; j: A- V8 f4 k1 N$ j2 t
  eat-grass
6 f* r& a! F% u% u. P  reproduce
7 T- f) m) L6 R9 K# T  check-death3 O( r5 v* C( ^' x3 S5 F2 S) Z# C
  regrow-grass
/ _7 |1 L# s0 x# F  do-plots
# t4 Z2 U& X) `& `! j7 Jend) n; j# c! q( O
to move-turtles+ O$ O# X. k8 z
  ask turtles [
" w+ A/ ^  _9 d8 m    right random 360
: D/ ]5 P. N: J% X8 N    forward 1
  }1 |  q( B$ D$ w) g% O" ~    set energy energy - 1# G9 a4 l+ I# q& h
    ]3 T6 ?* [" x$ v, y. g) b
end3 r( H  b( {' c8 V
to setup-patches4 a/ f# U" T" V; e! R9 _
  ask patches [ set pcolor green ]! W' P7 x4 l, K" m6 }
end$ j& J. [) q3 V
to setup-turtles
# n( f. C1 A' I2 j$ Q  T; C  create-turtles 100* [% ?. b. {1 H4 M/ ^- G
  ask turtles [ setxy random-xcor random-ycor ]
9 r/ \: ?6 P6 G8 g# U/ jend
/ e6 T4 Y2 q* F9 gto eat-grass5 J2 Z, O( }. n
  ask turtles [
, B/ r( t' a. R; s- F2 _" T    if pcolor = green [
) Y9 ?: G. L( \7 k4 g. u      set pcolor black1 V+ V& t9 M9 S4 `5 F
      set energy (energy + 10)
) m: a9 q  k/ u# @) O, h      ]
4 l/ p9 C4 u9 \% d    ifelse show-energy?
! M+ k# I7 x5 Z0 A* ?; P' M* n+ K      [ set label energy ]( d8 C3 y0 D2 t+ T! v
      [ set label "" ]4 B) Q2 H  W0 w* b$ Q) w: s# a
    ]
) p) h9 ?7 Z/ Z6 t+ Tend
8 h0 S5 X& S- H1 b' G- qto reproduce9 _! n7 f! E# n- t: X2 o% x
  ask turtles [
$ ^+ q8 |$ I# _! z* x& F8 g    if energy > 50 [( ]- R2 {( f! I( y& @8 Q" ?" n* y
      set energy energy - 50
) i& A  ?  W' i' r  v      hatch 1 [ set energy 50 ]
8 T# h  a' {- S( B# Z      ]
7 d4 H, ?' \! s: h( A% e    ]
/ ?. ^" t( T1 ]# R1 D" ?end
4 h; s. m4 V$ v! e3 X$ xto check-death
: ?* Z8 C' _% I8 }' `( Y) p  ask turtles [2 u: f( L  R3 o- \7 d
    if energy <= 0 [ die ]! L4 ~  O5 k% b9 c2 U3 [; W
    ]) X/ d- C" _( K- s7 ]+ B* v* Q: X
end! n7 U+ ?# e2 A$ k. P3 y3 O
to regrow-grass
  R& Q* K0 Q8 ?! ~0 A6 V  ask patches [
- Y: w' ]  h3 L( X    if random 100 < 3 [ set pcolor green ]: d  h. n! z2 U
    ]6 t" s7 b' L! Y/ u) {% F* C
end2 Y2 ^1 a# v+ v5 N9 S* i/ e
to do-plots; c7 ^5 g- G6 n: a
  set-current-plot "Totals"0 |6 X% ~- v4 J' I: X( C9 z5 v
  set-current-plot-pen "turtles"
, G7 i) `  ]/ a3 Q& t7 I  plot count turtles
$ b" L+ x6 [" o5 \* l( Y! s  set-current-plot-pen "grass"
6 q! E+ c  i  \' Z* g8 [$ h. W  plot count patches with [pcolor = green]
$ u) \% o* w$ T8 C% Eend4 {% k. ]$ g' Z( ?
可是运行时提示no such plot: "Totals"
& P% i2 n& f" X6 [3 P" Kerror while observer running SET-CURRENT-PLOT
( S7 D5 `) }0 @0 I* h1 f3 b5 r  called by procedure DO-PLOTS  d: M3 ^3 q' V' ?# d' s3 B& |
  called by procedure SETUP/ t; C; J, e( b! w0 d2 Z# G. U0 b) f4 F
  called by 按钮 'setup'
) x, M1 f' N6 R; i( l0 z  [' U+ x( v求大神解答啊
发表于 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 . h% }3 ~3 V4 L
建一个叫做叫做Totals的绘图框就行了
7 X( x. q& B* y5 M( k
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-8 14:55 , Processed in 0.018024 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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