设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12000|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ R1 Z1 D! `* E0 l5 t
to setup5 j- O0 g4 b1 j$ P! i& U- n1 ]
  clear-all+ ]7 H7 k2 l# N; O8 _" B2 \
  setup-patches
* e- z# _6 w" s% u6 O% ~2 u* t  create-turtles 100
2 X- e: ^6 w. ~3 ]  do-plots5 q- t( Y9 x) x  ]4 L
  ask turtles [ setxy random-xcor random-ycor ]
2 }7 G0 k+ D* y! W' _/ I. t+ |, _end
/ z* `$ e6 `5 U/ P' xto go7 U; Z2 k8 l8 @' X$ r) j
  move-turtles
3 `) E" R, a8 D- L' O  eat-grass
, C8 w; u- l6 M- t  reproduce
; w7 [% N% P8 @0 V; n# w# n  check-death9 @/ e$ \# n: c1 d6 |
  regrow-grass3 @$ D- Z" O# H8 Q) B- n
  do-plots
; }! ?/ H  p, m3 P" nend2 m3 R5 z5 T' j4 g6 k
to move-turtles
) B/ T, U+ R' {- H- K$ v* ?. Y2 j1 M1 X  ask turtles [! p& i9 r/ e" @; L  Y
    right random 360
# J0 A# l: }. I    forward 1. F2 \/ n2 x3 q
    set energy energy - 1+ k' e8 z! B* B" {
    ]
( G2 ]! B& L1 K9 t; J, |2 |% ~" @6 Kend
# d+ H7 l5 L2 q8 d2 jto setup-patches  V. B& P& A+ M# D8 I, w) {% g
  ask patches [ set pcolor green ]- j0 ~/ }+ m  E: h1 ~
end
; ]  v; o3 k8 Z" A* T* dto setup-turtles; W8 l5 L* u) }: W# V2 M3 s
  create-turtles 1002 F* J4 o) E3 |* n( Y& n
  ask turtles [ setxy random-xcor random-ycor ]
% G. |: U) ]% [/ Y4 Yend( {8 U) b! _, Z: \. m% n$ X
to eat-grass0 S7 L4 F5 V. Z9 O) m- z; ^
  ask turtles [0 p4 i8 d- A% A" V3 f% U6 K5 d
    if pcolor = green [) C' {% S) J5 M
      set pcolor black8 H1 \, \! x( r. _( e/ i( V3 }
      set energy (energy + 10)
4 m( U; w; o- Y+ u" q6 H1 q, H4 N3 z      ]
0 e3 t% H/ _, K    ifelse show-energy?
+ D, j( b9 G! _" a2 n- y      [ set label energy ]9 O2 G/ q6 ]$ g3 G+ l1 Y
      [ set label "" ]
2 e/ p5 Z3 B; e/ X7 m: \; l2 e    ]
9 z$ B" L% S$ x* Y  Eend' e: `6 ~3 X5 z- g* K
to reproduce7 T" y8 t7 E6 L/ T% j
  ask turtles [- t+ H7 E6 E4 l! q/ S
    if energy > 50 [
  [& M9 J5 k( f/ O6 R      set energy energy - 50
5 K, t2 I5 c5 s4 O9 D      hatch 1 [ set energy 50 ]
$ v: _6 d! y- A2 _6 ]      ]
2 F7 V6 _% Q1 u9 k3 U" s; @    ]
4 {: }% y7 P5 t$ B& o' V, N& Yend* c( w3 w- y# O
to check-death% h1 [* ?5 V; v. k+ @2 {
  ask turtles [) I% y4 E" I3 `3 T( G
    if energy <= 0 [ die ]
; r6 D3 u% p7 e& x4 V) r8 K% j& _9 `    ]
9 Q: Z1 r; e; E" p5 Vend7 n" U" V1 W+ \; @, Y9 H3 @: v
to regrow-grass
. |% ^% a3 D' U+ V/ [/ h) \* D2 S0 F/ K; w  ask patches [$ ?: m: I5 c/ Q) B
    if random 100 < 3 [ set pcolor green ]
# Y! I- Y9 }5 N* O    ]
, H3 ~/ i9 v9 l1 eend& t, j2 l1 `  o8 H: I. P2 a
to do-plots
$ p) B' q; Y3 \- j) H( D0 w  set-current-plot "Totals"
$ M( N7 Z7 f2 m) {# F# Z6 m  set-current-plot-pen "turtles"
) c: g3 V/ y, a3 j# h$ @  plot count turtles
; j0 x3 |& x7 [. z  set-current-plot-pen "grass"
" p8 D* c; l5 ?( P3 D8 r6 W5 f. B4 s  plot count patches with [pcolor = green]
, x  T: C, Y# Q' Uend9 |2 L, W8 D- ~/ [9 u/ Y
可是运行时提示no such plot: "Totals"( g  S0 c0 W7 n4 }
error while observer running SET-CURRENT-PLOT- O( X3 o3 B$ {$ n! y
  called by procedure DO-PLOTS" \5 m2 x/ t- R5 w8 Y0 q/ _
  called by procedure SETUP
; S( J7 w5 Z, P& V5 v9 G  V  called by 按钮 'setup'
/ l) ^+ \, p' g8 ]3 M; 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 / Y9 x$ J! Z1 X# w) J& Y. O2 {5 M
建一个叫做叫做Totals的绘图框就行了
+ Z$ W0 F$ s0 s
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-19 02:58 , Processed in 0.020094 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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