设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12350|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]' @! [" y5 X" J) X
to setup
+ H4 j$ B. Z2 ~8 J" F  clear-all3 H* J1 c2 u" n7 Y
  setup-patches4 ?5 |' j2 C3 C, i0 L
  create-turtles 100. ]% {2 C$ W# w" e( ^' H
  do-plots
/ _! g: y1 Q2 b" F2 h0 v$ U  ask turtles [ setxy random-xcor random-ycor ]
% m3 z5 g* F. ~* U% K( ~end4 Z6 T# q% ]' B# z# ]0 p5 @
to go
0 c1 t& O4 w1 S& h1 d+ K  move-turtles
7 R) \# U. W5 M+ J1 x( h  eat-grass2 j# @$ x; d2 j* E
  reproduce
1 r: W. b: [8 d4 f3 |  check-death5 e6 a9 b* L( a
  regrow-grass
' v* {" x$ z+ \' u  do-plots5 M3 J) b. p  \6 [8 S& B& C
end
  W0 F- j& X6 X7 O7 k1 ]' \6 Cto move-turtles- X8 c+ o( D( E
  ask turtles [
; q1 Z' a! \" z3 d  r' Y( n    right random 360/ u  V, Y  p' O  f3 r
    forward 1; Q2 O2 A0 q2 K; b$ g5 `6 e- h% g
    set energy energy - 1) e  Z( Y9 o! s9 [* e; D
    ]* q! ?  v: Z' `
end$ }6 j1 f6 n' |% [3 @- F
to setup-patches
( Z" l) p1 w: t, b6 J( [! R  ask patches [ set pcolor green ]
1 N. s& U7 ]* u$ Vend
# L5 e  @! x! t: kto setup-turtles4 K3 g! l: _, {+ }% x
  create-turtles 100
$ Z. I, G. A, x  ?7 S6 B4 K" w9 G  ask turtles [ setxy random-xcor random-ycor ]
* r& O2 S9 w8 V* `5 ^; H" I6 F9 nend
4 ^  U$ k3 Z% Q; L! i) ato eat-grass
# ]; n2 Q) C7 {6 L7 a  ask turtles [) \  n7 D4 O# o) ]  \1 k
    if pcolor = green [' O) X$ D8 B0 w2 O- d
      set pcolor black/ d7 a  |' b  V) }
      set energy (energy + 10)
  I" u- x+ E4 L+ A0 J' e      ]
. v; H, S) @* Q    ifelse show-energy?
) ]; l" a8 j1 z8 K      [ set label energy ]- \# c6 ~$ c$ X/ X3 S, h% [6 Y4 f
      [ set label "" ]
: J; m% p, r+ D2 Y    ]
0 O, _, R, b1 X; o' uend! Z. _& w# D: j) J1 V# z" n& Y
to reproduce8 R- U4 W" V0 F1 \& H' f1 c
  ask turtles [% d! n- W( }/ i& O+ K1 }
    if energy > 50 [
4 U5 x5 T' y! s+ I* n" }3 x      set energy energy - 50
! z9 m! P. Z  _7 Q      hatch 1 [ set energy 50 ]' d1 p0 I7 [$ S( Y# P5 v: m0 s* O1 Z: p8 P
      ]( {- `6 K7 A  d7 V; i9 A
    ]
3 I9 U; j7 `8 Uend) n: m3 u+ `7 }7 `$ j* I. Y
to check-death
7 l  q8 m' U5 Z& E" b: k0 u  ask turtles [, u0 Q5 V. p! W9 I$ E$ j6 g
    if energy <= 0 [ die ]7 {3 i* O* @) n8 X
    ]
/ K: r/ d- w  Dend
9 R! k4 p: E4 x  |. Hto regrow-grass
1 D6 Y/ l8 g, d/ h! ?% X" ~  ask patches [4 r( e3 N# J9 s2 U) x" e
    if random 100 < 3 [ set pcolor green ]! J4 `3 e6 A) Y/ ]2 k; k) o
    ]
( q7 A8 M; f7 l. G6 @; B- kend
. w/ O( W1 `9 p+ M9 Lto do-plots7 n( G8 k$ }; @/ O4 {
  set-current-plot "Totals"
! W2 I& F  \: i  t8 ^( }  set-current-plot-pen "turtles"/ z7 [) V1 B6 j& g; A7 b& }
  plot count turtles
( I$ j' ?/ L5 L) ?7 e! n  set-current-plot-pen "grass"8 }2 Q7 K/ d# I# z
  plot count patches with [pcolor = green]) z8 [3 u" {4 O! q& k. n' y
end+ x$ L  P8 Y' ?1 L7 }5 r
可是运行时提示no such plot: "Totals"5 h( i! F8 N" ~: F
error while observer running SET-CURRENT-PLOT" R  F& \2 c- b3 e+ g; x; Y' J. `
  called by procedure DO-PLOTS
, q/ Z5 z( O/ L3 \+ ?( R3 b  called by procedure SETUP
; d( C; k; v, @% O0 G  called by 按钮 'setup'. p; R! R8 ]; n; K0 D9 B
求大神解答啊
发表于 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 ( U$ d% G9 c% n/ E$ E" N
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-12 12:39 , Processed in 0.019798 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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