设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12657|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. L+ z/ @5 g9 @) @/ q2 u" P/ Tto setup
  ~2 F4 d  q% v3 V/ p  clear-all0 h2 ?/ _9 i- m$ o. w
  setup-patches: N1 P, w+ i6 K' z' \" |6 b  K3 u  s2 L
  create-turtles 100
+ O- \4 V! _( u: H0 J  do-plots* t, H- @) r6 ]4 c+ r
  ask turtles [ setxy random-xcor random-ycor ]$ V1 u+ n2 W# j- I9 @6 X- D- N
end' ?' Z# Y0 j+ W* p& E0 U
to go* x& L, v' K+ ?& R
  move-turtles
8 F; l  V) P- {# z' X  eat-grass5 |% D" U+ s( f8 n# p# B
  reproduce
, R( z, O& _7 S8 J* U  check-death
0 e: n" [5 u+ u  regrow-grass0 ^4 C* a$ c% ]1 h
  do-plots
, K5 @% J' A  u- Cend
; G; N7 |2 D1 i- Z" Z" ^to move-turtles' a' e' Z: J( p
  ask turtles [
7 [3 V: w% b9 E# u7 B0 d    right random 360& h( {& a, s. q2 u
    forward 14 I3 H% Y4 ^  U" a" F' @  `
    set energy energy - 1$ @# u. h3 o% u2 O) Q1 y3 |- d
    ]
% R6 |" U* p+ ]+ }5 Zend' O/ N1 O7 [. o$ p- m
to setup-patches' ]7 s& Y$ e3 p! Y: s2 ^# L
  ask patches [ set pcolor green ]- b" S2 c+ D2 ~
end
$ ]& P* e( m* ^: F6 C9 E6 X" C2 q" pto setup-turtles
8 t9 K& ?1 O, F7 J( E- \/ Q! K  create-turtles 100
5 {& R* v( c4 L1 P  ask turtles [ setxy random-xcor random-ycor ]
) x- t5 y5 I- k, `- _end& C3 x7 s3 y9 J
to eat-grass
* Y1 p: G$ X' |/ j7 C$ a- \- |  ask turtles [
+ F6 ^3 w. ~5 F* A8 |* f    if pcolor = green [& Q2 ~0 k6 f( F- k! w
      set pcolor black
9 v7 S' K! f5 d% t      set energy (energy + 10)9 d8 z; |/ U2 A+ t$ @% n/ Z! _
      ]
3 O/ @/ q9 h8 A. s% K+ o% g% V4 ]    ifelse show-energy?/ s' g) M+ f+ v
      [ set label energy ]- W. g: A# ]* ~( X
      [ set label "" ]
8 a# @: `0 t# g, Q" L# A0 l    ]
. w2 B  q4 a; q7 c. ?! ^6 Jend
2 n3 l; }2 T1 D3 x( U9 Dto reproduce+ I- ^% |0 m& I! ?- J
  ask turtles [
1 Y. T0 w: y# c7 }: {% _    if energy > 50 [8 t4 y+ a1 E6 x" `* ^7 ]
      set energy energy - 50* S9 R' _- E1 n: I
      hatch 1 [ set energy 50 ]) m8 N# I* [* O' Y; I) a3 X
      ]% P( O. W4 R& l2 S
    ]  U, l0 N( o  D" P
end/ ]' l0 f& Z# S: a! v6 g2 _3 n1 ?
to check-death9 B, d3 G9 m$ ?0 }( |
  ask turtles [, i2 |7 \! ~$ V
    if energy <= 0 [ die ]! P6 b* }( {3 S% X. X
    ]
9 Y, f/ y9 `  o8 X! i' b- Fend  ]( B# A* C; W: y' ?. N5 G* I
to regrow-grass
, r# A4 T3 g) g' G  ask patches [& }6 l: k! T/ i. n/ H
    if random 100 < 3 [ set pcolor green ]. t+ w/ E2 {" }; V. @
    ]1 S! q* \7 |9 U0 l5 Q8 {+ O
end6 t- ?+ d' R7 k5 b4 `) ]4 L
to do-plots' V* X2 Q* W' S( ]$ ~: i: g
  set-current-plot "Totals"7 S7 b$ g% r3 Q4 F: k" n
  set-current-plot-pen "turtles"
4 O2 X( J- q$ Z: E$ E+ P  h! W6 l  plot count turtles
# I/ Z) t, O" M8 X  set-current-plot-pen "grass"
  }" k1 b! N$ v  plot count patches with [pcolor = green]
! p: x3 r! E$ f# N* w* y7 Yend( l) u$ d1 N) C0 p1 m) N
可是运行时提示no such plot: "Totals"+ _% V" }7 I: M+ f. a; o0 t: J; O
error while observer running SET-CURRENT-PLOT/ a7 n1 p; L! ?9 V, R2 A' u
  called by procedure DO-PLOTS
8 r/ _5 N& v$ V: r0 }4 Z  called by procedure SETUP" \5 I! U. T' u8 T: }9 ^/ a
  called by 按钮 'setup'0 Z% s7 j. n' P, ?* f. Y
求大神解答啊
发表于 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 }. Z+ n6 j; ~
建一个叫做叫做Totals的绘图框就行了
8 @* Y2 M7 Z" L
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-9 00:10 , Processed in 0.015523 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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