设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11489|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 l$ C* M& I' N1 B2 y  a: D" fto setup
* K5 S* P2 {  _3 \' S  clear-all
4 `! A; r1 t9 d* L: x7 C  setup-patches# u3 J$ Z' g/ a# ]! z& g. E
  create-turtles 1009 H, p' C3 O# \& G/ K
  do-plots/ T2 V$ [8 P% V- u# G
  ask turtles [ setxy random-xcor random-ycor ]" B! @/ y- k$ P7 R* t3 R$ q
end8 j$ S# E6 S9 a7 A8 X7 r1 ?
to go- g. O' I7 @; ?% I  @" p* |8 A
  move-turtles2 `: p7 {: y) o0 B+ H1 b
  eat-grass% q$ d4 t- g0 _5 _) v
  reproduce! N: \" _" I7 l. \( h" p
  check-death* I9 s0 f! B* Q; C% M; e
  regrow-grass
/ P7 ^0 t9 B2 g- l' w1 }: s- b  do-plots+ u. C/ y  w( w- F# i
end
: x5 F8 D5 D- @. Q" @2 r4 p& eto move-turtles1 u: q) z8 l3 m# _! K* c
  ask turtles [; r/ p5 [) W; m
    right random 360
0 \( t. G6 C* ?3 c1 K. U. u    forward 1: U: F7 i; R4 U  X: ^
    set energy energy - 12 \% s+ k! t( B) o7 p# f
    ]
' i- R' i) E( m( ^5 N. Iend, H$ q) |! E/ Y( W  e
to setup-patches
  e8 F# K3 w" w4 ?7 R  ask patches [ set pcolor green ], x. c4 d3 X: H3 o
end; l6 K: r+ V+ Y8 a1 Y' V
to setup-turtles
! }  q/ T+ B, G8 _# d% _  create-turtles 100
- _! b1 \8 H$ V( E8 o  ask turtles [ setxy random-xcor random-ycor ]
3 r! i7 A$ Q3 e5 Eend
! C2 Y2 G1 C( z5 Dto eat-grass+ Y$ J1 q* u) V. G9 R, j
  ask turtles [
& I& e5 J7 ?  H6 {. n    if pcolor = green [
0 R# U' ~) B; l1 @3 d5 w      set pcolor black
# W. d2 ~! ?. T3 _      set energy (energy + 10)
4 f' k) \" G2 s. H3 L1 ]' c+ E$ O      ]9 R# @3 Y9 p3 S8 A, O( M
    ifelse show-energy?
5 f0 w( a  t) |) C+ [4 c1 }      [ set label energy ]
/ y) O7 f' o+ f3 S. Z' p      [ set label "" ]2 p3 B# d" G: b+ T7 z
    ]
3 G* D/ C, h& G# l: v4 Pend5 v' e$ }! n! H
to reproduce$ p0 F2 [  N5 y6 J0 `
  ask turtles [0 p: p% V0 P  X8 v0 E6 x
    if energy > 50 [! g0 L& m$ S" }8 X) Q6 N/ s  D
      set energy energy - 50
8 p- o* l: h2 r6 g( N" K      hatch 1 [ set energy 50 ]
+ Y6 v, T( A6 v7 U, e. M      ]* Q- ^& I# f7 K  Z
    ]' x5 d1 a6 {) w+ l; C' }* T
end4 `- s3 M# k! ]# C& b
to check-death# u8 s, v& T! \/ ?. n
  ask turtles [
) ]1 Z) S0 B: u9 s    if energy <= 0 [ die ]$ P; ?. m: R$ w) @2 e4 y
    ]: Y6 G* a% Q/ p
end/ q8 K: u8 F6 j* g0 r
to regrow-grass
" w( V) L5 R6 R$ ^( V# I4 l. S& k  ask patches [
3 _3 V- ^( o6 L, c) @) u! i4 z    if random 100 < 3 [ set pcolor green ]
* W4 ~+ u- W" ]7 M. f" |* \' D' J    ]
: M9 o( g; w$ h3 zend
8 d+ }2 i* E/ }- _6 Oto do-plots
7 Z; S' o3 w8 F  set-current-plot "Totals"' A' c5 o" v6 n4 H
  set-current-plot-pen "turtles"
1 y. q  d4 l2 F+ E! M0 l  plot count turtles
8 J: w2 o/ L" p  J+ ^$ |  set-current-plot-pen "grass"& }' Y- l& p7 }( l
  plot count patches with [pcolor = green], O* V& l6 G3 s5 ~4 D! U
end
9 t6 W/ D; Z- q; [7 a2 p  d可是运行时提示no such plot: "Totals"
6 n% |, K+ _/ Q+ lerror while observer running SET-CURRENT-PLOT
3 I3 d) J9 s" y% [5 q2 l4 {6 t. e  called by procedure DO-PLOTS/ y5 g/ r  U3 n6 Z( L" U  c. e- G
  called by procedure SETUP: N- O4 Y& d/ H# [0 j5 M
  called by 按钮 'setup'7 z- H$ f% `  o+ _; V7 G
求大神解答啊
发表于 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
7 w: ^4 j2 _; n- e# l  w建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-3 07:40 , Processed in 0.022931 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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