设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12910|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& k( F. W2 R0 Sto setup9 X6 N4 j! W, `2 l5 B
  clear-all
* P- \/ _- S3 O% o; i  setup-patches3 w& x- E+ f' C- [; c" I6 r
  create-turtles 100
$ T7 N" g4 U) {- r& @6 V  do-plots
+ l8 ]3 t# f  {5 L  ask turtles [ setxy random-xcor random-ycor ]
2 A$ ]+ O2 u9 u) V3 q/ b$ i7 Oend
+ M1 c5 ?+ }* n4 V7 [' ?, z5 g" @to go
2 b* z7 H) A, H* m2 w  move-turtles
0 R/ Z5 ]- \" ]9 B5 w  eat-grass
+ y  Z( |2 Z$ U8 T+ Y5 [) ]  reproduce
8 t. A. \7 J) w6 T5 {- m4 p5 R. t  check-death
: l* |( G. n/ S# b1 j7 P$ P6 o  b" H3 j  regrow-grass; G& I& i) ?5 {% P& {
  do-plots: F5 L! J, l$ ^& n- B4 {% q
end
1 J; L2 m  _. K0 `to move-turtles
0 e7 K( w5 Q! r2 Y  ask turtles [
: i; x& ]0 ]" o2 X+ O8 {( K7 M$ C    right random 360( x  C, T4 Q' w6 ?+ f) A4 g
    forward 1
; w  A% d) Q8 Z; }- J    set energy energy - 1
6 l" j" l3 t7 r* O  ]    ]
- a* m( z0 _' V1 V! p/ h$ hend2 o( u/ U9 n$ ^1 k
to setup-patches9 k; K# e) ]2 R) ?
  ask patches [ set pcolor green ]" c5 G8 v9 \) n
end" L) @% R; k, @$ X& s
to setup-turtles3 k0 S! \: M% y0 d6 i+ \
  create-turtles 100$ @5 ?  C; K1 g/ d
  ask turtles [ setxy random-xcor random-ycor ]
7 o8 o- M" ^9 Kend
+ [  f6 N  x! s0 Y' b8 l- uto eat-grass
8 O1 Z  T" ~$ C. e/ B% h2 l  ask turtles [
; a; w( u9 f4 s( _, t; v7 `+ l8 N' E    if pcolor = green [+ q- y3 E, a& I4 y+ {  X0 l
      set pcolor black: a4 b$ ^3 b. k" X- \
      set energy (energy + 10)( D# {- P/ v5 k" K: K* x
      ]
' b& d: E2 f* h2 o    ifelse show-energy?
. s7 d9 `% R$ _# R( }: P% m      [ set label energy ]
  P* ]2 [, w) U      [ set label "" ]
6 u" }( {" }, j  v    ]( |1 A( V/ N7 j+ H
end# e/ O* O4 g9 s! `/ H9 G
to reproduce4 P* x# _7 E8 [4 s0 U9 ~' G
  ask turtles [
' D; D9 }# W- W. g/ k+ g    if energy > 50 [  A) g# L7 \, Z! h8 k: |
      set energy energy - 50
1 A! C) q2 }# S7 j+ Q      hatch 1 [ set energy 50 ]9 Y+ A5 ?1 e" ]9 s
      ]6 M9 a6 }5 \+ h. y
    ]
7 P4 M+ @6 S6 r1 @3 Z$ oend
; G0 H3 ^+ @# |to check-death1 ~% E' o. d# M( n& E# X2 f- `. H. ]
  ask turtles [
( p- }2 w7 V. ?0 O% E1 b2 R    if energy <= 0 [ die ]
6 R% _6 T& }/ w1 c8 e' i0 g6 X    ]% D7 M4 S: t- N
end
3 C- |: ~  `4 z. n( o; h& kto regrow-grass
; _* M- ^2 @8 Y/ }9 ~) W0 `, k  ask patches [! c1 |6 j7 o: m* O, q: o- j
    if random 100 < 3 [ set pcolor green ]
1 ?* c  F! O- N& A0 x" Y" @& u+ F0 `    ]
( w% C3 C8 _' J! E! x' zend$ J4 o6 \1 Q, e
to do-plots/ D. c  c9 ^4 p% l
  set-current-plot "Totals"3 ]+ ~5 t3 k: G; j$ f
  set-current-plot-pen "turtles"
0 c( w* Z. L& y0 K. ?! E  plot count turtles
7 N/ q3 ~) `: I  B  m: v  set-current-plot-pen "grass"
* i: K  u# u# m& p& G9 ~  plot count patches with [pcolor = green]" {3 h1 m$ d2 |# k5 B# Y) i* k: K
end/ x1 O0 ?- z9 @6 H5 H6 [
可是运行时提示no such plot: "Totals"/ _' [2 n- s( h3 u  p
error while observer running SET-CURRENT-PLOT
5 _$ c! h. P! O5 p  called by procedure DO-PLOTS
- `1 M7 s& A/ m$ T: f. w  called by procedure SETUP
1 k0 f) x9 U4 c& i7 }  called by 按钮 'setup'- d5 g+ |5 W6 E/ X4 F7 K0 ]
求大神解答啊
发表于 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 # @0 C$ K3 g) l9 ?" f" h* X
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-22 03:43 , Processed in 0.017311 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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