设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11558|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
' x/ i- k7 P( m: F- Oto setup
; w2 E! n4 _- o1 G- {& Q  clear-all
2 c% y. e# r# c5 @' p. w6 u  setup-patches7 T) _/ A, f+ d3 b9 Z
  create-turtles 100! y. s" F( b1 ^# |; U
  do-plots- E! b+ @! f6 J- [/ ?
  ask turtles [ setxy random-xcor random-ycor ]
8 ?& W% C$ t2 n# i1 h4 X* }" I# Iend# j& B/ c; Y& A1 R0 _
to go# f( _- x2 E) u- u
  move-turtles% k0 O) r# t. x0 r
  eat-grass
( Q7 n- i1 w$ z! P1 Q1 Q5 `% r  reproduce8 \' B+ n; w/ q' \1 \
  check-death! O" Q6 }2 [7 z1 }; S8 P8 s1 M
  regrow-grass: y7 j& Y8 N; u+ X( i
  do-plots. ]. d0 ]- o; W1 F; |5 [
end. @& {1 X; Q, G3 S: K' ^! x
to move-turtles, Z- ~2 i! X9 v
  ask turtles [( Y' @, e# g9 h! @8 x
    right random 360
" c  J2 B3 u* {- B- h7 m. C    forward 1
& u, _; l- U7 p. X9 o: F5 O    set energy energy - 1
: [0 ~& L  n3 h/ a; R    ]
' q. U, Q& ?/ s! eend
3 G& Q$ I* }7 \7 k$ Cto setup-patches
2 k8 w0 }# H& |  ask patches [ set pcolor green ]( v6 [; h* g; `9 @# Z! x9 @
end
2 S9 N; |3 ~+ ito setup-turtles
5 C6 ?1 n4 R6 R6 ~$ c  create-turtles 100  U' n+ V% \. W7 Q; U  ~% H* ?
  ask turtles [ setxy random-xcor random-ycor ]% ~- o" s5 `9 V+ w; R" |
end
/ |! P6 A9 G# @8 }8 g2 u, Lto eat-grass
6 X' C- K2 ]6 f  e4 ^- o7 C  ask turtles [% V0 w# ]- m8 n  f
    if pcolor = green [3 u3 w% W; b! M+ `  m. E
      set pcolor black
( M* S, r$ s" `; B) C2 i+ C      set energy (energy + 10)
0 m; ]/ n/ ^# F      ]; ~! _) m+ l! m3 l/ Y: y7 N0 {
    ifelse show-energy?
) H- z# I1 l' a      [ set label energy ]
" z; e$ s: |% c: q. ^$ B3 ~0 L      [ set label "" ]; D/ p/ w% L7 f6 _
    ]% ?! R( B' }  W/ {) o- S4 r
end1 M. ?/ F; n' b: `$ Z; ~
to reproduce4 ~. X( q. ^; d! l0 E
  ask turtles [
+ x1 T& p2 F7 K  C$ r. n' b    if energy > 50 [
5 m( I( d  m* N) l( l# @      set energy energy - 50# Q) M) r3 p( I1 a0 c
      hatch 1 [ set energy 50 ]
6 w% v$ p. M: t" |  ?      ]
( ]/ Y' z' E, i6 n7 s& @8 P; ?' s4 X. ~    ]
' F) N1 f6 P) C8 X6 j& _1 }  ]end
( u. R: R  N8 xto check-death, W! W; W6 J1 v
  ask turtles [
$ q# J+ N% y- A    if energy <= 0 [ die ]
$ X4 m9 B# O8 v3 q    ]
/ Z8 t7 R, a7 zend  k' h1 E( @' U2 T) ?8 ~1 j
to regrow-grass
9 q2 R/ Q# a6 p7 ~/ V# C& e' |  ask patches [
. T% `0 G! B) s8 l/ O  a6 m" i' {, r    if random 100 < 3 [ set pcolor green ]
# N& A+ Y9 V4 ?. \. t+ s3 n# h6 i" a    ]/ R. O" [8 |2 @4 s! h1 ~- O+ p
end
" @# s; Y- B0 _% vto do-plots
1 @* v5 \. R, N8 W  set-current-plot "Totals": }1 p, @/ x' x: y, Z+ a+ F5 v( i% z
  set-current-plot-pen "turtles"
: }4 [  g# q2 E% m) P: j# a& ]2 t  plot count turtles
6 G$ M% }. \' P0 I+ l7 Q! b  set-current-plot-pen "grass"
6 K6 f) \, g( d$ m  plot count patches with [pcolor = green]
# s$ |$ H$ Y" l2 V8 F6 ~end# ~. W' N3 {7 P& [- j
可是运行时提示no such plot: "Totals"; W7 Q" W/ |% E# J% G+ k/ }  h
error while observer running SET-CURRENT-PLOT; I; ?6 g) T5 b
  called by procedure DO-PLOTS
) c8 \' _% `/ c' P7 S3 W; d: U7 `( b  called by procedure SETUP
) p. b1 R3 H* A3 d6 R  called by 按钮 'setup', r2 U: u2 m) [! 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 - C5 [( F$ p" o& J1 E
建一个叫做叫做Totals的绘图框就行了
# A3 q8 i0 Y7 z/ u
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-8 22:17 , Processed in 0.017039 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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