设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11961|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
! I2 V) G' X$ N$ W9 j8 Q. Tto setup
- C' m" q4 d- \% G  clear-all
( y/ g) w; F5 G  p' X  E  setup-patches
3 m5 X9 G, t$ M  create-turtles 100+ i& o3 W! ]# O) M
  do-plots
5 v9 x4 S; x2 V: b6 D" R& Z  ask turtles [ setxy random-xcor random-ycor ]
- u2 n& T7 f) o1 X; Z) j1 q4 vend8 v+ L: n% ~3 b
to go/ s% W% R5 r) g( }1 F
  move-turtles: ]) i5 ~! E/ [) T- I0 C
  eat-grass/ X0 `) v& U6 O1 F$ E, @
  reproduce
9 p8 ^2 d2 N8 [3 E  i  check-death3 d3 j3 y2 g% v) g' e
  regrow-grass
% F; N3 n; z8 x6 Q$ t$ o0 q  do-plots
& O8 i% e& G& _1 h9 ?end4 x8 @% S5 T, s! K
to move-turtles
- z. s! K; x7 h! N  ask turtles [. j3 i6 |9 z' K( C6 j* `
    right random 360
; V: s9 \  e, m% M/ d6 \; Z5 {    forward 1! v% c3 M2 K% H; e* j4 U/ P
    set energy energy - 1, _/ t8 C3 D1 g7 H% ?4 f
    ]
0 M6 D1 W5 f% [end
4 u% h( q2 {' mto setup-patches
, A) T, a5 e5 K! w! T  ask patches [ set pcolor green ]
( q! A9 R2 q* n+ ~+ Pend  r% u' z5 s: W# M5 ]+ ~
to setup-turtles& W2 R* J$ I+ `
  create-turtles 1007 ]6 Q! K) j# i1 D
  ask turtles [ setxy random-xcor random-ycor ]4 l, `) f4 U% j/ o; k
end
. c0 \; g  y% r1 ito eat-grass
$ U. T$ o& _9 E" ?  F  ask turtles [* I" A7 d: d; f4 A$ N- i5 G+ _3 v
    if pcolor = green [2 ^% z4 ^" l2 O/ r8 w& Z% e
      set pcolor black5 P$ P. z9 v* w9 y
      set energy (energy + 10)
1 M! F; G# D) T# s2 [7 E+ _$ i      ]4 J# `  o( {4 {1 ~$ ?
    ifelse show-energy?
) p6 J+ T6 z3 k; w      [ set label energy ]
, d( p. u+ m) U( k8 Q      [ set label "" ]
# n* I6 o, u) E) h# T  s/ n    ]
% }% {$ @: z/ j/ jend
1 p4 f+ E' R, Z# sto reproduce
, Q' V; W$ z; |% m2 @8 P; x, [5 l+ J5 I  ask turtles [
# N9 P0 T$ A" c( |- B    if energy > 50 [5 {% V. s' @# v0 ]3 M* w% G
      set energy energy - 508 j* T; h7 _- t, m" n2 c
      hatch 1 [ set energy 50 ]
% Y" n8 ^  K- B$ z      ]
8 r- [! T, D; l5 [, y    ]
. q+ l2 N* b7 s2 z9 c1 f2 Z' ?& Q3 tend
$ V  a) I1 h7 ]. bto check-death7 Z" j! n$ g7 M" x
  ask turtles [, R4 \3 b  p  ]- d( ?( Q, I+ V
    if energy <= 0 [ die ]
' F3 y6 S6 a+ S4 |    ]
0 ^/ V- P6 c* K/ X3 x, \7 o$ Rend
! |: T! V) N0 z' [to regrow-grass" i# F9 g$ O) G  G. T2 D: `6 j, _
  ask patches [
( Z3 b; q) u2 t* \# a( v, T& D( G, [    if random 100 < 3 [ set pcolor green ]
1 B( B' {4 B' s  s) `    ]
! G8 U7 u  w' v$ a* Q! o; Qend7 k1 V3 F5 a; d+ [
to do-plots6 q! G' X: E& v- ~. K: c  u
  set-current-plot "Totals"
3 h& `/ o% a, ?" @3 b  set-current-plot-pen "turtles"& s# x7 b( U* {3 @  t
  plot count turtles
; y0 n( g; }+ y) j' c  set-current-plot-pen "grass"
7 `$ v! F  j- \* u& p  plot count patches with [pcolor = green]+ T6 c$ ]  ]1 i5 W9 J& h
end
$ ~% V4 b- E3 I, v可是运行时提示no such plot: "Totals"
( y" S5 G1 x: Z8 `* X/ Rerror while observer running SET-CURRENT-PLOT
. ~1 k% I, j7 b* [( ]- ?# ~  called by procedure DO-PLOTS
4 }% g. g5 M+ @$ Q  p4 C  called by procedure SETUP# J  H* U" t6 ?
  called by 按钮 'setup'
6 \4 D# ^  g5 Z7 K) Z2 ^求大神解答啊
发表于 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 # W- C+ K% C* u* Z: m( M  V6 {
建一个叫做叫做Totals的绘图框就行了
6 n" Z1 |# e+ u' D4 ^9 H  o
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-15 20:46 , Processed in 0.017588 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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