设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12139|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]' t) p9 h, ^2 n( y  E
to setup( T+ e2 e; `' _# ]0 e2 T0 \
  clear-all- Y3 N$ \7 k0 W
  setup-patches) @( z: b2 c6 m' C- T9 q3 G% k9 G# [
  create-turtles 100
, _* Q4 N6 V! `: I8 V$ b  do-plots
- h5 G& |# o( n  ask turtles [ setxy random-xcor random-ycor ]" m: j8 J. s. W4 W# s: L
end
( t! D8 a% ?1 y+ A8 Rto go3 w  f) W# z9 n. l
  move-turtles7 T& f* F; M4 c! o
  eat-grass; g! e& a/ d" {; P
  reproduce; w" L, A* G) s) c) I- z
  check-death
3 t+ \( v8 h9 e# \/ J  regrow-grass
1 q5 t$ D! {/ ?* @5 R9 g2 W: h  do-plots- a5 Z+ y5 Q8 ~1 \% f) B8 j
end7 ?' r" j" @, c1 y5 ^
to move-turtles
2 W- R$ m! [. L. X( P  ask turtles [) s# t2 y( |+ [9 m+ F. \& ~
    right random 360
5 \* K4 f% h8 L8 Y2 V/ F    forward 12 I0 v8 Q: F. j& J! A' i' m
    set energy energy - 1
5 _) {* X2 o1 ~! [. o+ ?    ]3 A) s$ m! i' q; ^$ i, W6 b
end* b6 @/ |  w" k
to setup-patches$ r5 i# Y" z4 ~7 y/ |
  ask patches [ set pcolor green ]
+ k+ m' J! ~# X7 eend. ?) w6 L+ z7 J7 P" \
to setup-turtles) u5 u, c/ o% D0 ^4 p( s
  create-turtles 100
$ V4 {' O  R$ T  ask turtles [ setxy random-xcor random-ycor ]
1 r$ x! C; C% h  C! `# {5 @2 hend
9 M& g7 r+ G; R$ S6 {% D' ^to eat-grass
5 J6 ?! m( K( z3 @) \# y/ u/ W9 l  ask turtles [1 c8 U* O0 X6 \3 j
    if pcolor = green [. ?* f" Y6 t  ^2 e/ h' a1 l9 A3 R
      set pcolor black. X5 {  N) w8 h: S: I; X( ]
      set energy (energy + 10)
; i& T! a: e4 n4 T7 o2 m4 d+ k      ]
5 _' M( |' o. D; ?    ifelse show-energy?& a: w  E/ ~* ~
      [ set label energy ]
) j6 J: b. n3 L( h, `+ M8 v7 J& [      [ set label "" ]4 M* H& v) y; H
    ]
: Z: i$ T! J5 o* j+ \) @" Vend% K; c6 A. ^3 m
to reproduce
5 a1 w4 x0 g1 Y3 g3 o6 P6 }  ask turtles [
. I6 S! W2 o+ V" d5 c    if energy > 50 [
* d6 l1 I1 ?4 N& _      set energy energy - 50
% B5 Z0 [2 A  G" l/ Q8 H" C! [      hatch 1 [ set energy 50 ]
; G/ d; R3 x- K$ D% w      ]
8 d& \9 _% m; @* g% e, X" C9 v    ]
1 K3 W) w- y, M3 \% V9 W7 yend
$ e( Q9 D* s9 h% pto check-death
2 j0 C: N+ I' \7 b  ask turtles [- p) `) e3 S0 O: G
    if energy <= 0 [ die ]. A0 l4 p# q6 a* V
    ]$ {1 l* `+ P6 n& Q) F" c/ K
end
/ _% h' J, ^! F' K& k5 _+ jto regrow-grass
( d% ]& X1 u  ]: O- |  ask patches [
# v8 A7 ?2 k! F9 P    if random 100 < 3 [ set pcolor green ]
9 e6 s2 w# ?  ]) ^# |$ Z' @    ]+ h9 Y+ _3 ^8 d* D! Y# W
end
. x: _) Z" E; N: N) T$ M" Pto do-plots2 H# g' N- V5 `( _
  set-current-plot "Totals"
$ {8 W% G2 s* N5 m# L) o  set-current-plot-pen "turtles"
) c4 N9 r7 G2 o( P) ?  plot count turtles
/ Y7 d; |/ b9 p# N9 v) c0 l  set-current-plot-pen "grass"
2 V( F( g+ I7 \3 X4 s  plot count patches with [pcolor = green]) H9 x' E9 Y8 K- E; J: F! e. G0 Y
end" t" j) _) v: C% K2 l" V3 u8 z. M
可是运行时提示no such plot: "Totals"
' N; o8 m; M% ^3 {error while observer running SET-CURRENT-PLOT% y4 S  S% {6 c' O' `
  called by procedure DO-PLOTS
1 I& E. S  n4 w2 `  called by procedure SETUP8 D: D/ S* T2 g1 r! O/ d
  called by 按钮 'setup'
& o8 q+ V. `2 F, d" V) F. {求大神解答啊
发表于 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
+ K) J+ L) _+ _' S: q建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-28 17:29 , Processed in 0.022418 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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