设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9967|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- P( `: Q9 }- u( ?5 P; tto setup
% G4 x, @& c4 x2 ]( [7 D/ c+ h  clear-all
" |4 V# ~7 h. }7 U  setup-patches1 _1 Z* `. \* r4 V/ I. @( z
  create-turtles 100
0 U0 v- I. G1 a. ?' y$ k6 d  do-plots
1 @; j$ y& [- Z" D  ask turtles [ setxy random-xcor random-ycor ]
6 C0 w# I* L& ^( ^end* s4 K- H/ r0 T: h/ o
to go
7 f! z( j0 j0 m$ g, G  move-turtles
' i+ Q4 X8 e2 y: E1 R, z  eat-grass
- J9 p, X8 \% T! f  reproduce
3 q# K! m/ o. P, I+ J  i& l5 m  check-death
! ]* {0 Q3 w3 a, ?. W6 Q  regrow-grass
" N9 A) i: _" a* x# J  do-plots* _" l9 n( W& _6 a# ^' p
end3 ]  w  x4 N; ~
to move-turtles
" K- R' H" h$ S9 R  ask turtles [
+ _3 @! T& P8 B    right random 360! a3 M# N( H9 `3 `9 ~& L: n
    forward 15 Z2 T' o9 I  p2 @1 t" H6 n5 H2 S
    set energy energy - 1" `$ |# J+ K" [6 n
    ]5 L; i- d  s5 `" n  y: A
end
4 b& q4 V& P% @# Xto setup-patches5 }' W' i" B0 o+ ^6 S
  ask patches [ set pcolor green ]7 y4 p4 O. P: Z
end; w$ e5 R5 g# f' {( u0 }9 {
to setup-turtles/ S: i& D3 d0 N; L0 \+ [1 x
  create-turtles 100( n$ K. W9 E5 B4 S2 L3 e1 t, u
  ask turtles [ setxy random-xcor random-ycor ]
0 w+ l) a1 d3 gend% g, E) s2 Z3 q5 v9 E# w+ e. ^
to eat-grass9 O, ^' n9 G! I6 X$ a; ?
  ask turtles [
9 T7 T9 Q- r0 x/ ?, h    if pcolor = green [
3 c$ V; C2 P, D7 n! w2 e) Q/ a      set pcolor black: ^0 N% |+ r* C& g" P
      set energy (energy + 10)
) }, [& `  c) M  |! |. w0 t      ]2 L. S8 m; E6 K+ y6 w% g4 [  r
    ifelse show-energy?
8 N* j  ?9 l0 m      [ set label energy ]
7 Z  A: I" D" Z/ i      [ set label "" ]7 w8 b  @* ~9 a0 q2 M( @0 \: y
    ]
0 K; H7 _6 T/ B+ k, V. Zend1 @$ l9 N7 o" b' J
to reproduce" F- K& N& j& }* X5 g6 m
  ask turtles [
1 {5 L0 k4 @7 |# Y! e    if energy > 50 [
3 D1 @+ W) k. g1 f8 V3 W      set energy energy - 50
/ s" g6 w$ u( R) I( l- S      hatch 1 [ set energy 50 ]
; P8 U! b) b; ]( I4 B3 q      ]
9 g/ `1 Y5 J6 B: l    ]3 z  r3 Q" O  p) K. g
end+ T) b0 u7 G/ k7 T# D: m5 W
to check-death
2 H( U6 Z! l/ l" Z; `2 h" `" \  ask turtles [
  s5 ~  Z+ b- W7 i1 o" Y    if energy <= 0 [ die ]; T9 W, Z' J4 P& H* Y
    ]: q) b. u9 s6 y2 X  e& g
end
, x/ [& _3 V2 Z. [! ]. kto regrow-grass; c& Y1 r) L, o  G
  ask patches [
# N; h3 w1 S9 V    if random 100 < 3 [ set pcolor green ]
" d8 z  z9 |: f, \    ]
$ }- b. E) O* V/ E% F7 [end6 K" n! I& u6 _6 ?: b' T
to do-plots
, m. r2 a6 T. r  set-current-plot "Totals"
7 X6 ^+ Q; u- N7 p! ?7 M  set-current-plot-pen "turtles"- J, x0 q2 e+ a* c) O. s0 L! }5 ?
  plot count turtles6 g2 h; P+ ^( l" [$ X% Y
  set-current-plot-pen "grass", F, B* S3 J9 q9 X
  plot count patches with [pcolor = green]
3 L: P: F0 F$ r! g) Hend1 H( w# e5 s( b* v+ g* [& p. [
可是运行时提示no such plot: "Totals"  M6 X+ l7 }' ^6 l: x& P% _
error while observer running SET-CURRENT-PLOT+ r* `- v8 c2 N/ c7 x
  called by procedure DO-PLOTS7 Z& e: |* v" {  I) {! H
  called by procedure SETUP
' @1 ]6 w: H3 }2 n  called by 按钮 'setup'
; s- o& J0 M" F+ w9 k9 v! [求大神解答啊
发表于 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
8 T3 T4 b2 y$ |建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-3 05:06 , Processed in 0.018650 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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