设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10058|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 z) ^* K/ l* {to setup
7 I: A( H8 T2 `& ~  clear-all( H% @$ v8 T+ J' \3 a" r
  setup-patches
1 O9 n; S) P. e8 Q  create-turtles 100! N/ O) t9 M% @- {
  do-plots
! ?4 S; k& K. [2 S6 n  ask turtles [ setxy random-xcor random-ycor ]
7 q. g2 f/ Y  D, r3 _end& P! j2 A  y) u: v, I3 \  q$ _
to go
. @4 W) A/ W9 a5 R: G  move-turtles4 Y& l( g  S. q; ^
  eat-grass
' e2 {, d& M9 I: n% c  reproduce
- I# N! D( K/ W$ t  check-death
' l, V. \/ z, j# R, o  regrow-grass
1 x' j7 Y: {8 s  do-plots; l: p- @7 B$ w# h5 b: n& p
end
0 r8 ?( x# {) R) m# n: r, ~to move-turtles3 r) @) a5 }, g
  ask turtles [' [+ ]. L0 \1 s7 V& n7 a
    right random 360
5 W+ s9 |$ p; V  z5 y  G* r    forward 1& J6 y& t% N* W" r+ X9 v
    set energy energy - 1+ n) S% E5 H4 ^
    ]2 J" Y1 y7 N. A2 u. R. e9 x0 h
end
3 `( [) y, ~% k. \) {' G, j) }  V  Uto setup-patches9 n* ]* J/ K) O" H& g0 r
  ask patches [ set pcolor green ]; G" G3 o7 {$ u0 z3 d* W; C
end& Z$ y% r; d8 _" t+ x
to setup-turtles- }0 p# e% E: a5 G& H9 O, P
  create-turtles 100
* H+ l; M" M' M7 G+ U- e  ask turtles [ setxy random-xcor random-ycor ]1 h& `7 m4 W! Q, i) V& J5 w
end5 k/ \. o0 |, y
to eat-grass
2 O" I. Q) f+ Y1 B; a6 W' U  ask turtles [! ?9 T' j+ J4 j& ?9 W& u2 r
    if pcolor = green [
; x* R# A1 ]# Y( m  K$ c( s      set pcolor black
7 x6 O9 `9 U. T      set energy (energy + 10)
" Z9 g7 \; A3 I      ]9 z# [6 d4 s3 c$ [& Y; w# p
    ifelse show-energy?' r# @4 O; y" Y/ `
      [ set label energy ]
. z2 f; M; G; a- F+ l2 s      [ set label "" ]
& [# N8 q- {8 P' _3 _    ]  O$ V7 ^& @! G  P# q$ U) W
end
6 y; S. p0 C$ Ito reproduce
* G0 H% w2 L" o  C( e; G: S$ D  ask turtles [
0 R" ~: t; U9 L" a, _- b$ A$ i1 J    if energy > 50 [
7 v  _7 f$ w9 F$ S2 K+ \      set energy energy - 50
( I7 [3 @: Z. k) c% [( U      hatch 1 [ set energy 50 ]
4 b- K& P' c" V& M      ]* d6 @$ l' j$ N7 u
    ]" y% t  {! ~1 r9 Q! Y; c
end+ {; d; \: K& N
to check-death
; J7 @0 z/ @  P6 I  ask turtles [, Q6 G+ ~- T& o, B2 ^
    if energy <= 0 [ die ]
1 a, \" }$ s4 I2 _4 b: E& f    ]5 l" V( T7 v, ]
end) p# D' g, \. c2 p$ Y5 ?  r
to regrow-grass% b1 ^! ~4 g+ M, \5 {- ]
  ask patches [2 }8 @& q$ N3 Q6 A4 v& i
    if random 100 < 3 [ set pcolor green ]+ ?8 L6 D/ q; r$ C
    ]
+ y% R4 t2 \$ fend/ w) n6 \$ t& `0 U# V
to do-plots  }" ]8 Z2 t( F; B8 F1 }
  set-current-plot "Totals"
( ~! v% s$ u* r9 F0 p  set-current-plot-pen "turtles"
8 s5 M6 Z. _$ V5 H; l3 ?  {  plot count turtles4 A2 h" s0 }( @5 i
  set-current-plot-pen "grass"
0 N$ [7 ~5 I' |% N. g* L. V2 o  plot count patches with [pcolor = green]" s- z  D9 F; I: i9 A1 l
end) ~3 f( Y* |' p! r
可是运行时提示no such plot: "Totals"& C* ?/ |& C$ V) y8 C
error while observer running SET-CURRENT-PLOT( B: }3 j* U1 h# r
  called by procedure DO-PLOTS" M% W- E- w: Y% U+ d/ U1 w
  called by procedure SETUP
; B  u! `! X2 O  a  called by 按钮 'setup'
0 w0 f' w0 q8 u7 A# ]! n. E求大神解答啊
发表于 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
9 n4 b5 o' N0 q  J5 q, d建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-9 06:38 , Processed in 0.018387 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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