设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10654|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 ^2 y. n) @/ {4 b% I& d) Q/ Qto setup
1 Z) ?) |% j" N  clear-all
* A: \% L& s) }9 o  setup-patches
2 Z0 w5 F  b% `" W- a' x  create-turtles 100. U7 k9 r; Q3 c% u
  do-plots
: d+ V9 i- |( \' V$ i1 r  ask turtles [ setxy random-xcor random-ycor ]
! t. j; X7 b+ L: R8 n" Oend4 X7 K+ \) ?1 n2 Y0 F1 w% J
to go; z  w6 y5 O! L: P+ @' E# @3 D
  move-turtles5 d9 h# k# c; L
  eat-grass
2 w$ a* v$ ?, o+ o$ _8 e  reproduce
5 V% ]7 D9 f  E/ `  check-death
4 }( W1 a* t8 e* F+ q& s( _0 l  regrow-grass
+ I  u2 [0 z$ Z6 G  W3 l  do-plots* Q" l4 i- e" a4 }3 |0 c
end& M  ]6 |$ I0 F! q5 Z. s
to move-turtles* q" y5 X" d" n( `0 k( j
  ask turtles [
) ~8 H- |) j- u( j5 y    right random 360
2 u) t7 X- {' k; l' T' l) G' X    forward 1
0 I, U3 }; x3 {& q' l    set energy energy - 10 C, A) P, I+ y" x1 y
    ]1 r5 e* X& E3 U7 z9 j. C
end4 j; c& g# F4 j" U. V' D
to setup-patches
5 H  m8 G1 @0 G3 y$ R1 L  l# Q1 c  ask patches [ set pcolor green ]
& t. [' A+ Q: X# D, o# k# x( Qend
( z% `  ]6 F# j. o1 Wto setup-turtles
1 _1 H7 L* T+ _! v  create-turtles 100; X0 u+ N: ?0 }( A/ v8 a- J. a# v
  ask turtles [ setxy random-xcor random-ycor ]1 f/ D$ _" p7 E; N
end% N- s3 ?8 W: I' Q6 k4 d2 x
to eat-grass% I5 K9 A" j" i
  ask turtles [
1 |6 n/ x6 ]) Q1 c% G% i# S    if pcolor = green [
5 Y0 T% X8 U0 s: M3 m; t4 Z- C      set pcolor black
& b; O! \* w  @/ l5 Q      set energy (energy + 10)
' [! P; |* W0 e' k( N/ n      ]
  d4 V! \1 X, g+ m+ ~    ifelse show-energy?' ?% k* }( U; P) U0 h
      [ set label energy ]) b: e$ @, z  \3 [1 c
      [ set label "" ]
7 j5 M" {) F5 s* _" k8 z    ]
8 q/ L  Z* n& ^! O4 Tend
  Z- d; q2 S6 o9 k/ F$ {to reproduce
. r/ z# i  @9 x$ j7 {0 t  ask turtles [
; _3 O  |  E; ?; d5 `4 j& W+ r1 L    if energy > 50 [
# }  f# n) W' Z8 [( F      set energy energy - 50
& B1 }& h8 J, g1 S- |  d& D      hatch 1 [ set energy 50 ]# ]( u9 }  v2 u( b$ C" R' M' l( W  R/ \
      ]
( B5 J* u7 R5 S# ?4 o% z3 \3 X    ]) k, ?* a7 F. d  o* q
end: B6 |/ P+ p4 d  {( b: u
to check-death
+ w/ b% `: O6 Y' h4 ?+ w+ ^9 F. {  ask turtles [0 S8 W. U. J, M) X& ]
    if energy <= 0 [ die ]
0 L! W9 |2 y; z+ j    ]
$ T% X8 I4 ~0 e7 W& `2 |$ fend
' s, Q7 p' E( g5 }. ^to regrow-grass
8 a1 P% q* @# ]/ F. L; Y+ o  ask patches [8 L& j) N7 T+ z8 G, p4 l
    if random 100 < 3 [ set pcolor green ]& a# }3 W; z# k' I/ u9 O6 y1 C
    ]
; A) |# K, ~* ~" w1 Kend
' a8 I% l3 q0 o: Ito do-plots8 o6 _7 I; _/ F, x
  set-current-plot "Totals"+ y' Z7 ^: Y. o0 ?1 F! D
  set-current-plot-pen "turtles"
$ D; n, ~  W0 P6 K  plot count turtles. k& s5 A- U: G% \
  set-current-plot-pen "grass"7 W% k( `8 X' A: e: \3 X' R
  plot count patches with [pcolor = green]
; Z, j, D5 q! k2 W' Hend: I2 {* c7 I* n( E0 a
可是运行时提示no such plot: "Totals"
, x; l: U- R: y% K" terror while observer running SET-CURRENT-PLOT
) n7 f/ w4 Z! A" h2 x  called by procedure DO-PLOTS
" G' d- k2 {1 z. D  called by procedure SETUP
& I* W3 ?3 N! y+ J9 w  called by 按钮 'setup'
: u& y8 B- q; c& X求大神解答啊
发表于 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
+ V5 @' j4 o# ^5 Q: T. a2 T建一个叫做叫做Totals的绘图框就行了
& M; e" w' i5 |/ g* z
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-31 21:47 , Processed in 0.018856 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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