设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12903|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]" J3 E8 m7 b1 P) K% T& T
to setup/ b8 t8 [; {! @( i) g* |
  clear-all
+ d7 `3 \! x2 o: ]  setup-patches9 H1 n6 U& \* C7 v6 A5 U
  create-turtles 100
! C% i9 m0 I# w4 e/ p7 }  do-plots
' f3 a- q* L9 u& J; m5 Q  ask turtles [ setxy random-xcor random-ycor ]
+ a; [7 l4 \1 W7 i  t" Oend) O; W2 Z+ v4 R+ o, u4 d/ C
to go
# w$ E7 V% u* ]  move-turtles) e# C+ Q& b4 l4 s" H/ A1 W
  eat-grass9 a" b" o2 S' x) T
  reproduce
# G% v  X( N' C/ z/ N  v6 w  check-death" M6 Z6 V6 v! X. B
  regrow-grass, D2 F" j" l$ L* o
  do-plots
9 q2 p2 |! m: q! \. R: ~end1 _( S' X- z2 Z' @9 \" A
to move-turtles
5 v5 e- w  z: _" j9 ?: I8 C  ask turtles [& ^" p8 j/ W5 ^  M2 J) T5 A5 i- Q
    right random 360
5 x& y) `) G6 y3 d: ^$ u9 M    forward 16 r/ s8 j% e: }8 H7 e
    set energy energy - 1
2 ~- W+ ?' [* U8 e. E/ F    ]4 ^9 ^& c$ e4 j0 {9 z
end' G5 o( A; U7 K) ~! ?4 J& g; o- B
to setup-patches3 [- T3 f- D  z) W. Z7 x% y
  ask patches [ set pcolor green ]& \" v& T+ P7 K4 I6 H$ w
end+ D8 X( K4 \0 l, i" a* J
to setup-turtles
0 P9 L, B+ }$ q. w* I9 w  create-turtles 100# M8 u. T% A7 k+ s$ R7 L+ C: P3 m
  ask turtles [ setxy random-xcor random-ycor ]
# u) i" {* |8 F  T2 q+ |0 o6 _end" e5 J  ^3 q! n; D& n  U1 f6 `
to eat-grass" f" d/ B7 L9 s$ y  u; G  a
  ask turtles [
$ C9 U& h: w3 Z    if pcolor = green [
2 s; `; Z" x! B0 n3 [+ J8 V      set pcolor black, |; X( W; Q1 C9 H! l
      set energy (energy + 10)
8 C8 v3 e  [3 o$ B! Z* I  j      ]
: S# E" ?; N+ O. \    ifelse show-energy?8 h% ?- }) B6 p3 F
      [ set label energy ]2 L: M2 h6 |( x0 c) s, `; W3 v  E2 b
      [ set label "" ]  }- ?3 c5 Q* r$ {
    ]1 Z! G! r7 i% K3 ^- Q% Z( S
end
+ `; a' q* X6 hto reproduce7 u* e9 P' O% G; T3 z
  ask turtles [
' t& d. E* K5 u* j" o- p) f/ ~: Q    if energy > 50 [
7 n1 X( ]; e; r' E      set energy energy - 50" M5 x$ ]& }! H9 K0 H
      hatch 1 [ set energy 50 ]+ r7 a. a9 ~1 b9 M" I9 I( y
      ]
8 o; B8 ^4 l% h) k, F4 Y& F0 G    ]* f% u1 J  R+ ^# _
end% h3 ~& ^. n' C1 |' j
to check-death
+ Z* a# K8 b* B9 ^  ask turtles [
$ O! u) m. U; {    if energy <= 0 [ die ]
6 n) N- g- N; N5 v    ]/ R8 k0 g- B# N4 U+ r7 L3 o
end) j  ^) n; [5 D2 r; z: B
to regrow-grass
' J- f$ s6 l9 m6 F7 z  ask patches [
/ K' h9 `* X. {9 A7 ]$ p! u$ q: T- q    if random 100 < 3 [ set pcolor green ]
/ R- A0 s5 |" q2 z  J3 `# n" J    ]8 e- k5 c; M3 U6 l$ ]8 X) f$ A
end
, g- j& S7 w5 ?7 ~5 Y' Z5 W9 {: Sto do-plots
4 {( ]0 P& o; ?  M  set-current-plot "Totals"  c- f* z/ y3 e8 u/ L' R
  set-current-plot-pen "turtles"
- r3 [7 z1 ~7 z9 T. C4 a  plot count turtles
0 h7 z0 x* R: t' H  Z* ^! j: S  set-current-plot-pen "grass": @1 {: ?1 I; G% {
  plot count patches with [pcolor = green], A3 ~8 F' B2 z. V; t! P' t9 b. Y
end
& _% J0 H# `9 [0 J" Y' [可是运行时提示no such plot: "Totals"
( Y& Q6 M: b% P% c* S8 J5 eerror while observer running SET-CURRENT-PLOT
7 b! I$ o% j; K/ d* P  called by procedure DO-PLOTS4 e( ?% t/ w$ ~' n! D0 J
  called by procedure SETUP
" B$ f. c( G5 v1 ~5 V* D  called by 按钮 'setup'
1 H8 |/ d  \1 L9 ]  k4 e% c9 E" `0 U求大神解答啊
发表于 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 . I# w- w. G2 s* K8 X6 o
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-21 19:01 , Processed in 0.017305 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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