设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12559|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]) N) B0 P$ f6 P7 \
to setup
5 z0 `/ f3 D" e" u6 s* z6 ^  clear-all8 F! O) V" n7 y% l. c3 a# x
  setup-patches9 s5 Q# t+ x+ q( C4 C
  create-turtles 100
" f0 e1 e; y, b/ i2 \! l  do-plots$ \1 b+ h9 b$ J% e6 J
  ask turtles [ setxy random-xcor random-ycor ]' V& n0 W2 U% [# @5 A/ D+ a
end
& e, `- n7 f: l) {9 {2 fto go
( q1 f! h' q5 T% n; K5 N  move-turtles
" i& z, z  ?4 Y& u7 V: i) T  eat-grass- d* }: N8 f3 X& M7 t! D
  reproduce+ K5 o& w" c' w; \
  check-death
* j# N. I/ S' W  regrow-grass* Y4 h2 M; c; O8 k3 A+ y
  do-plots
% k4 Z) @2 |! I8 Z: Y& H8 z0 Bend
$ a' D7 |" W6 @/ Lto move-turtles
* C7 d! r2 k8 T  ask turtles [
2 Q' Y; q& b5 K( p    right random 360
/ B( Y. p8 a, [7 I7 l  E    forward 1
, Z. [5 T# |& H! m7 G" ^    set energy energy - 1
, ?# X- H9 m1 Y7 l: ?    ]
% r/ J3 Z$ G4 g5 Gend
* y1 C' _- E, ~0 D5 |to setup-patches4 s- e2 }1 H  q' L! M; y2 Q
  ask patches [ set pcolor green ]
/ s! I9 ?5 N) }* l$ ]/ Cend
% R) ~& M1 M) n  X# i! N; C. ito setup-turtles8 B$ N# M7 J( G0 B( a0 R
  create-turtles 1004 D+ ]6 F3 h, |& \$ C
  ask turtles [ setxy random-xcor random-ycor ], D/ D' T9 Z/ B8 b6 @+ b
end
5 G# o/ }7 L. m. y; f! ]to eat-grass, G  o# o# w2 b2 o- R; u# Z
  ask turtles [
. {' q2 s' Z8 h, s, Q    if pcolor = green [
, T  M2 d& c9 L' _      set pcolor black) ]: r# q* R; I. A4 O; u$ U
      set energy (energy + 10)
3 T3 z5 |; p, ]. @7 x      ]
# k& l$ x; r* X+ `) D/ o! m    ifelse show-energy?
4 u+ y* S' N6 c+ J" @      [ set label energy ]
" l  ~, F+ k1 Z) m* _      [ set label "" ]
8 v/ ]/ D& w( ]. B8 u$ ]0 Z( r    ]% Y2 D3 @) F  l
end+ q, `$ d7 ~% X- ~, ^
to reproduce
$ w% o' z, Z, d# Z8 S2 J3 Y0 H6 ?  ask turtles [) m2 [7 _1 y3 X/ E2 A+ ?0 m
    if energy > 50 [8 x/ O- b# q9 g
      set energy energy - 50" j8 M4 y' c5 T% O
      hatch 1 [ set energy 50 ]
% p9 u  E  t& |/ J      ]
: `& r0 T! M% L7 f' P    ]
. t; Q( Z# D  X5 eend- x$ J% N+ \7 Y
to check-death; ?4 x! ]# `: b$ x
  ask turtles [, @! [: g, A* u
    if energy <= 0 [ die ]  s# u+ a% o3 J" W
    ]2 k/ B2 Z; w& {- \
end
: z/ g, d; \) @; K8 E) ^to regrow-grass0 p# K# u" d' {$ s5 R* _  A
  ask patches [6 u9 ]4 E" y) p: A4 U
    if random 100 < 3 [ set pcolor green ]
* d1 V) c, q' \8 D    ]
. _% I8 ^1 \( \0 a- Lend
$ t& H9 b# Z( S* q9 `+ _9 Ito do-plots. S9 Q4 n7 u  }, ~4 h3 c! `# o  p
  set-current-plot "Totals"
/ {. b4 c. j1 Q( V4 y7 z  set-current-plot-pen "turtles"7 B! D+ y, y. P* T! M
  plot count turtles
9 b+ Y9 c; Y% a7 d$ ]0 v  set-current-plot-pen "grass"
* v! ?9 |5 Z; J# ]7 Y- h  plot count patches with [pcolor = green]
% K" m3 A% Y3 jend
0 E( p" r" Z, w( ?可是运行时提示no such plot: "Totals": p- z: M0 L$ H7 P0 G0 E
error while observer running SET-CURRENT-PLOT
, c! J( n" @6 p& @6 g  called by procedure DO-PLOTS$ k  h2 @' z, f) L$ J( u& o
  called by procedure SETUP
( ~$ x" ~! }! r- m! v1 W  called by 按钮 'setup'
& b' P$ Y* G) r# }* P# f# G求大神解答啊
发表于 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% a# k' K' C4 z9 w
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-31 23:58 , Processed in 0.017993 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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