设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10452|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 X' H2 r1 b& f3 E# g$ S4 mto setup
/ r% R% X8 f2 o# d3 V  clear-all$ O, S$ M) o: O1 N; ]8 u
  setup-patches' A3 h) k: u+ s# S1 f1 i
  create-turtles 100$ G$ H) _: B6 Q0 ~0 ~: _5 X
  do-plots
+ n+ l* R3 M* ^- @' y  ask turtles [ setxy random-xcor random-ycor ]
/ C* E+ v- Q0 N4 z4 W$ kend
6 Y9 A7 x# ]' n( {! s7 h  p/ ^( Uto go
2 I- e$ O, v) k! {- J3 n  move-turtles  C  o! T( R& ]5 y4 E
  eat-grass
, c' |; R7 K7 e* j  reproduce, P6 X  u' a# N& R$ A% k* m$ t  J
  check-death. r' Z# i  \. q2 V7 P8 d/ G
  regrow-grass$ W( ]4 q5 ~$ Z/ s# e5 j6 J  F4 o
  do-plots0 w1 ?! H+ \# U% h' L
end: V! \% f9 G" ], x0 ?
to move-turtles3 n4 f& E/ b/ l: C+ b3 i* V$ m
  ask turtles [
" e& Y* }3 Z' ]3 |/ Z, e    right random 360; M4 y4 p' o3 k
    forward 1' X# N  }7 N) Y5 G" D; O8 I, d
    set energy energy - 1& I, n5 [  I! S5 m2 ^6 A, }
    ]
6 y9 e2 a5 m( G: n/ F5 n2 fend
6 n, y" G0 d$ m2 @1 {. P7 m, T8 [to setup-patches
5 P9 u: b8 V2 c9 E+ p- f0 D  C6 h7 `  ask patches [ set pcolor green ]
# W* y: }1 f6 Q$ N) gend
$ c% {  q7 S# oto setup-turtles5 v5 O$ s- [( A
  create-turtles 100
4 ^2 z* k% C1 }  ask turtles [ setxy random-xcor random-ycor ]
* ?8 R7 x. T: Q2 |# rend
7 ?  a- c) Q( w/ fto eat-grass2 n7 |0 H- c" f+ o! U  V
  ask turtles [
9 i. ?- H2 e$ Z! z- |0 M  ~. b' Q    if pcolor = green [% l" u0 y( w" b' ^" C7 ~3 k
      set pcolor black4 Y: }# x- c8 T+ O* l* |4 x8 ^
      set energy (energy + 10)
# s' a9 D0 z6 E, a: {      ]
$ w8 k4 I( U, K) k) N: {9 R    ifelse show-energy?1 q2 t% _  r1 {* P
      [ set label energy ]
+ {: ]8 z$ V; ~) E6 k      [ set label "" ]/ P# q1 x  K8 C; |1 T0 f, R
    ]
3 L% T/ V+ J  c4 l- J% M4 P7 O. ]4 mend
  T) \$ P& o2 W) n0 H/ L' eto reproduce+ w# R& C7 i3 v; W
  ask turtles [3 x/ B1 }3 W5 y4 \: U1 h
    if energy > 50 [. `  m! N+ n3 v: m0 c. [1 V
      set energy energy - 50/ m, |! M- `# b4 z: ?, A
      hatch 1 [ set energy 50 ]! z9 e. X* y. n% Y1 m
      ]1 E" N7 x4 R9 r/ s
    ]
' V1 Y) E4 _- l* T5 a& v3 Gend% v, J: o% S8 L
to check-death
% ?/ x/ Z- |2 i% P  ask turtles [! P8 W. D& g! x6 }! A: W) ?& G/ D7 i
    if energy <= 0 [ die ]
% }# a) t7 |4 x( @2 H$ x' l9 S    ]6 m3 O( b5 e; N/ h
end
. S' n8 L1 q0 J! i+ Xto regrow-grass* r0 Z: W$ D5 z  H4 ]7 m+ F3 Z5 b
  ask patches [
7 y: z7 J8 w$ H- y$ k" [! A, o    if random 100 < 3 [ set pcolor green ]
& I# Q6 D+ R, o: q    ]( O7 @* t& |+ h# A: w  V
end
  ?) {4 N% n& C9 V9 M) p/ Z0 N7 Yto do-plots
+ t2 r* H+ `% N1 o  set-current-plot "Totals"
( V2 n, b' r" O* p  set-current-plot-pen "turtles"
- O) y! ]' M( e: X: H, G  plot count turtles# B& U  `' n2 u# r
  set-current-plot-pen "grass"
7 `7 {0 k) U8 d, ], E1 K  plot count patches with [pcolor = green]
' x) M! p' j& Q* j# Z4 gend9 w$ h9 e" Q. v, K% W# B) c
可是运行时提示no such plot: "Totals"
" Z& z# O6 t9 Perror while observer running SET-CURRENT-PLOT
8 v# d9 t4 v7 Q& F" V0 c  called by procedure DO-PLOTS
/ S7 C6 Y; w5 M7 t3 Q# [9 ^2 p  called by procedure SETUP
0 S& k$ E3 E* a" M0 b  called by 按钮 'setup'
5 P! w  p3 N6 }. U2 q! k求大神解答啊
发表于 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
5 n6 g  G' D+ H0 {建一个叫做叫做Totals的绘图框就行了
/ y9 n% {/ `3 @: O' I8 R: M: \/ o% ?
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-14 11:04 , Processed in 0.017282 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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