设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11986|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
! y% K( m- C; C8 W# Qto setup/ p( D" f: O/ I3 w. ]
  clear-all
$ y7 T, |. t. \/ y, ^  setup-patches2 r7 d/ k* b) M9 u# B5 D
  create-turtles 100
& c# Y( k) c) |' _  do-plots. S+ H1 t7 a) @/ Q  p1 T4 u
  ask turtles [ setxy random-xcor random-ycor ]! ^; L* ?, b0 |! S: {. J: D/ A
end
' l5 u. r0 E6 j& \+ {to go
2 ?2 j+ v! x2 g! ?  move-turtles& M% k& ^+ M( h6 x
  eat-grass
& \8 S- i+ T" n6 u  reproduce
  ]5 c& {/ h2 y/ P$ Q1 N" W# Q  check-death
  n0 i  U0 }4 \0 x6 ?1 M  regrow-grass
6 C5 @: z$ F! f7 s2 L  do-plots2 z2 O4 T( g# |3 w
end
( l6 C7 ~. D, Z. u3 H3 u* F0 P5 Mto move-turtles) C% j+ e( [8 Z" V* U
  ask turtles [
9 d5 J" S! ?% s* ^/ N& i    right random 360
. H$ F2 v& ~) y3 {    forward 1/ m4 {, y+ d6 A) r4 `  ~0 W
    set energy energy - 1
; G' `8 ]9 V6 v" d    ]
3 t" O3 h2 t5 n  D0 kend
* o. j  f5 w5 ~0 |" ito setup-patches
6 q* y. {$ G8 G8 _  ask patches [ set pcolor green ]* F5 H: N7 @0 u2 L& @
end  T% t, d' b; V; U0 ^' P
to setup-turtles
4 t& X' r2 `: m& J; x  create-turtles 100) o$ m* U9 r) ~! E( Z2 z0 Y" @
  ask turtles [ setxy random-xcor random-ycor ]
4 f- V: ?9 n% y$ u: z! F  _% gend
# N! y5 a& x# Q- P" Xto eat-grass  y7 Q/ x. P9 v8 S! F+ `" P4 U
  ask turtles [
# m% h1 r5 `4 S- }" g3 ]6 f1 J    if pcolor = green [
& A/ v2 a( w" y; n. g; D      set pcolor black- ?1 f2 x$ h6 _' K, r" x- g7 z- I( `: |
      set energy (energy + 10)
5 m3 ]2 _' o3 j' e! H      ]& H& d8 @' r/ K% [2 e
    ifelse show-energy?5 r5 F6 X8 d& J0 B+ b6 k
      [ set label energy ]! ?# \8 F  Z$ `" m# O8 f
      [ set label "" ]
0 r9 t6 I+ {- T: ~& A    ]7 j. [% t: T) o# _) {4 k0 s3 H
end
, u% c+ p+ f( e3 q! V) K5 Bto reproduce& z! v8 d' y; M2 a
  ask turtles [
% N! @( B; h5 a, P; [6 e- K' a( T    if energy > 50 [
0 ?; g0 S& {' k      set energy energy - 50, N1 D- [, g& l
      hatch 1 [ set energy 50 ]; A1 L0 X4 q' \: c+ g
      ]  ^+ A$ E4 [# k
    ]  K. F: S5 m) V; T; k
end7 g. R4 I3 {5 A2 B' y
to check-death; Z% z; s4 ], n8 F' e, F- x$ ]
  ask turtles [3 P9 {9 u0 U/ Z/ V$ U" g1 c! B
    if energy <= 0 [ die ]
+ b4 x7 t5 y/ n* |) ]6 @    ]; T; D  W( K+ ^1 }7 L
end! e6 {  Y2 I! H$ l  H2 [+ F
to regrow-grass! e4 C7 H: `1 d
  ask patches [0 @' E+ y) [$ {& E
    if random 100 < 3 [ set pcolor green ]4 a+ `3 S4 c) Q! u1 `- S8 {
    ]
1 j+ p' U# Y' |( q. zend
! x( Y( H0 v2 P5 e  f6 W1 qto do-plots$ `+ s: s# k$ }. D) P6 K6 B6 U
  set-current-plot "Totals"1 d: X) h+ L- K
  set-current-plot-pen "turtles"
" n( D2 F# D5 |3 A+ ~  plot count turtles( Z+ w; t8 p# w% z: O
  set-current-plot-pen "grass"0 ]3 u2 s4 I* x3 b3 ~
  plot count patches with [pcolor = green]; g4 E- K5 d, G. l, r* W( _: B
end% l6 m' n9 F" w: {( [* W
可是运行时提示no such plot: "Totals"
3 [% ^) e# H: rerror while observer running SET-CURRENT-PLOT- H: ~2 f, X6 t0 R4 T8 u, W
  called by procedure DO-PLOTS
( }7 X; F+ x* E  called by procedure SETUP, g& s1 v% C2 B9 E/ V$ c
  called by 按钮 'setup'% L2 w9 }* H6 z9 H
求大神解答啊
发表于 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 ! G* ?0 j6 H. b/ B7 k" }
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-18 08:11 , Processed in 0.016370 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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