设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11684|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]8 E$ _% U  C, a
to setup1 n& w1 `$ W; t! u$ y( Q2 q
  clear-all
* K- b2 g: X/ x5 _  setup-patches4 o2 u4 C9 A' ^$ X8 e, L1 d
  create-turtles 100
9 E  E" E' W. N' ~  x) L3 C  do-plots% q; ~# W4 @- |/ ~# }
  ask turtles [ setxy random-xcor random-ycor ]" z9 M. f( K0 {" H
end
- F: J. ^" m% b; F  ]/ x/ F: Zto go
: U  P, M# g6 k. ]0 M. j1 t  move-turtles, g$ A1 |# ?  O: r2 {4 e
  eat-grass
. |+ r! _9 J/ s& I) h+ _  reproduce* R' R6 s+ T4 P# \: F: i
  check-death
* Z% j; x- H7 |  regrow-grass
7 _8 |" K" J, y' e  do-plots1 f5 ?1 t: C: U2 H2 V  v9 B
end
; Z. u: V" i  b! c! `8 D; Dto move-turtles% l$ V. M, K4 ?& u
  ask turtles [
) J( M4 r/ _% p    right random 360
0 z! ~$ F, v# I# L# Y' Q    forward 17 W0 ~* W4 t5 i# e" [
    set energy energy - 1/ h" k7 U1 v7 @1 w* _) J
    ]6 L  T1 V% L( _$ }, U" Z4 w
end6 d) c2 @: u2 k- {5 g0 G. p; L
to setup-patches
' q/ M( ?& X! u& j1 F! A/ H$ R) H9 w  ask patches [ set pcolor green ]
5 X+ Q' C0 e2 v' l6 z' W) m6 Iend
; O  p( z6 j$ l. ?8 _4 oto setup-turtles
1 B& b& ~6 U0 I3 D* [  create-turtles 1004 b6 U8 Z" B- w1 {. t
  ask turtles [ setxy random-xcor random-ycor ]9 b5 d# h+ `! V$ l
end- O9 _% [8 f. a! P) y' T. i/ W
to eat-grass
: f0 e; N% F/ c  ask turtles [
3 c+ T$ l0 c  h    if pcolor = green [
1 c/ v; Y3 c+ K3 h2 W      set pcolor black
* m0 G  l1 e: _6 q  I# ^# u      set energy (energy + 10)  y' N- c& o4 M# `
      ]
7 H; G  ], D( m1 W    ifelse show-energy?' O$ v7 k. w! V! ~4 \/ Q3 [0 C
      [ set label energy ]
4 {& W' f0 ~( B6 u: T% A      [ set label "" ]
6 [7 U4 D( v& Q- g" f    ]
3 t; [4 z. w3 J4 q: k; T9 l5 fend: ~! t/ e3 S/ ?! |  v# y3 s
to reproduce
9 A5 o, Z( _1 H8 c/ W# ^  ask turtles [
5 x; F+ V. W6 A  S    if energy > 50 [  @7 g; f' `5 v4 S4 U; W
      set energy energy - 50
% A  M! j8 Z- _      hatch 1 [ set energy 50 ]
( \9 x, O/ n' f: |, v' K" l+ N      ]1 Q$ B% |2 g$ @# J7 B! z% K  Q
    ]5 K1 C; ^$ L) {3 P6 }  L* `
end6 X: p% F$ X# i3 i- L
to check-death
5 g- Q4 n+ q/ O  j, G+ q  ask turtles [
0 B) a1 y; ~' e( L0 B! G" W) }    if energy <= 0 [ die ]
9 z2 ~1 s  n5 j& S" ]% m9 G9 L9 G    ]2 k/ ~% N- x, y1 V
end
, p% T! x7 I8 g" c2 Jto regrow-grass% x* ~  _! v% q2 ^3 v) {
  ask patches [7 J7 h# f- r; Y) o) U; Q
    if random 100 < 3 [ set pcolor green ]- p% u; c! s5 Q! S4 V) }; L3 U
    ], H) a, X& g( t& L5 a7 G
end5 p- Q5 O5 ?- _1 U
to do-plots
: k8 O' S& o) S, A2 r8 M, @  set-current-plot "Totals"' k# v0 J: |: T0 D. d. M0 ^6 ]
  set-current-plot-pen "turtles"
5 w) a1 X& G; E& U& f6 K* u: M  plot count turtles0 N/ z' j' h% J
  set-current-plot-pen "grass"
4 g6 Z6 W4 N9 G; }, c2 L  plot count patches with [pcolor = green]
1 [6 E) p  [( _& \end
" F6 n& `& a$ N  z! X可是运行时提示no such plot: "Totals"2 v% r7 T7 S. ^1 Y9 ]* ?3 B3 o
error while observer running SET-CURRENT-PLOT
% `6 n' }, T3 g4 D/ L  called by procedure DO-PLOTS
; R/ ^) N& D5 A% r7 r: x* R  called by procedure SETUP- a+ z' P' \, u; r7 |3 m3 y8 _
  called by 按钮 'setup'
: F* h3 w- s1 B6 z' W# W- l& 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
" P# T& R( ^& I% L$ {& ~建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-19 12:18 , Processed in 0.016465 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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