设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11609|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& V- i1 H& e& b# W0 x4 X9 Q# mto setup" E4 i* D: q+ {- N5 a
  clear-all
5 _5 c5 F% p( M8 G  setup-patches% u. N' O+ v4 W7 G* T) I( R
  create-turtles 100
) v2 e4 ~4 _! Z  K  do-plots
& p4 F! d* f/ P/ k  ask turtles [ setxy random-xcor random-ycor ]* x- h1 J$ t5 f$ s3 L
end
9 }3 k' r5 e5 R% G* D4 |to go+ d( f, g( K- [; G  W0 B) W
  move-turtles& s8 Y# C6 Z" H6 U" ^+ O/ U' F
  eat-grass
5 s5 n! w3 @4 n& X" w: R- y2 A& f- h+ n  reproduce& ?, o% p0 _6 G6 ?
  check-death
$ c: N7 j9 p: s- Y) j6 z  regrow-grass
4 J: h9 y' @  n8 b1 r  do-plots5 u8 I* c7 k9 e2 ?  B, c
end- n7 M, @' \5 y7 V  f! U2 j
to move-turtles: N6 Y* ^: t1 r' _. C! S
  ask turtles [
6 z; Y) a' b: g2 ?    right random 3608 B- [' M* T8 n5 f) H' v
    forward 1
+ L: s  R5 {( P1 [    set energy energy - 1, t' d5 u9 w: o
    ]
4 X6 B$ W+ m" s  K/ aend; A3 [" k' ]2 e7 }% m7 ~" V$ B, w3 `
to setup-patches2 M/ I* P2 _2 o+ w7 F9 \; P# T8 h
  ask patches [ set pcolor green ]
: \3 R+ D0 `! d! Cend
/ y) D/ k% H- k" yto setup-turtles
8 q# R8 L( U5 L. B; r3 e) y  create-turtles 100
5 E; M- B5 W+ p$ w3 m  X1 c7 i6 Y  ask turtles [ setxy random-xcor random-ycor ]
+ w% \8 u" Y* @( Aend
: p- d0 _) @, qto eat-grass
, b7 U# E8 z5 _% a# a0 {  ask turtles [
1 I4 X( s$ O  |. I% @3 w    if pcolor = green [! b8 w+ @, u6 i- h" x" M
      set pcolor black$ y6 }+ L$ Y' |6 U* f. ^; a
      set energy (energy + 10)1 S- e9 i' [" n( i/ L+ {) ^6 f
      ]: p2 j- h3 d/ Y$ M" k
    ifelse show-energy?
$ C3 G+ v& T' p# U      [ set label energy ]
+ z3 @/ V1 |/ ~# r      [ set label "" ]  Z& a+ o3 A5 m$ G
    ]. ~" I. [- U* V5 e; x
end, v0 L7 G8 f& c. y; F0 Z$ ?, V- H
to reproduce! |0 u- O* O4 T+ ?
  ask turtles [/ l& I/ ?* T6 R) C. E) E
    if energy > 50 [- }" U/ j  \9 M( p4 }& D0 f
      set energy energy - 50
' Y! X) v2 d( z8 u      hatch 1 [ set energy 50 ]
9 a) K! `" U7 f      ]
( i* ]/ ]8 H) X" N- M( J( D    ]& n. [6 p* z' L/ g
end4 k! i+ f. M" g8 w( h8 L* b
to check-death4 f4 h1 \( x3 A$ v! z* k+ M
  ask turtles [) `5 p6 i8 h- o7 h. W' v: k+ U
    if energy <= 0 [ die ]
* r1 O7 o' u* P1 E! B( p    ]
) V0 j$ x) D- K& w  O6 Yend, D: h  _  b& j4 z8 z, D, B
to regrow-grass
  G7 t& B. p# ?, L7 a/ o: a  ask patches [
: H1 u5 w" @/ D' T* y    if random 100 < 3 [ set pcolor green ]) N/ h9 J; [$ @3 v5 i5 p
    ]3 n& d" a& c3 x9 \* |  L
end
6 n, w8 ?* Q1 s- h$ ?0 zto do-plots. ^& o: D/ E; I4 }: s. Z1 Q
  set-current-plot "Totals"
* H# \4 R) R- L( r( E. N4 C  set-current-plot-pen "turtles"
0 ]$ s. \2 @% B9 h  plot count turtles+ P0 Q: H7 Q; Q% v
  set-current-plot-pen "grass"
0 N+ d& o0 @9 T  plot count patches with [pcolor = green]
7 {; d; U& d/ m1 t1 F( `; hend& L6 [" H  G7 n9 S
可是运行时提示no such plot: "Totals"
' I( o  o3 A! r- W/ Eerror while observer running SET-CURRENT-PLOT$ S" K4 G9 {* L" l
  called by procedure DO-PLOTS
% c5 ?0 B6 L, z1 K5 C3 w/ P  called by procedure SETUP
+ U2 \' x" i8 ~" `/ U  called by 按钮 'setup'
  _: M' b. w1 s$ v* 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 : z) r) P6 F" g. d$ u
建一个叫做叫做Totals的绘图框就行了
* R  U: Z' o" k! W- v' h0 D' M9 B) @9 E6 ~
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-13 14:09 , Processed in 0.017167 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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