设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11083|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. s2 }; Z! Q; J+ f/ {to setup& X. s) H: a2 h7 P5 A3 b
  clear-all) w7 ~! ?1 R% G  O
  setup-patches
0 r" U, I7 n: p8 L- Z  create-turtles 100& b  A+ m  ~5 b; D- w6 C
  do-plots$ t% D2 \7 z/ Y  @, b6 B
  ask turtles [ setxy random-xcor random-ycor ]: B4 ?" e1 K& O& p: v
end' r9 I. s  u9 R# L0 B3 }
to go! o  s) q; C, P/ o$ G4 z
  move-turtles
% d& w1 V# O' J- S# C( P1 y/ u% {  eat-grass/ ]8 x2 W! I. m3 j4 N  R
  reproduce2 X9 l5 T' R1 s# U0 e/ ~  e7 D/ b
  check-death" J' ~$ G# C. S) R* G5 Q
  regrow-grass
% i6 x: w' q: l$ `  do-plots: V5 @, e' U  W8 [
end4 J* h3 Y4 _: T* Y: t9 w3 z7 {
to move-turtles
3 }0 e3 X- m8 h& i4 n! ^  ask turtles [2 B6 z5 C1 Z  t3 [& j2 P
    right random 360; _# o' X7 d- G4 \
    forward 1
% N5 ^& e1 E) }) t( d$ M; r) z    set energy energy - 16 W$ ^; x" [, T/ |
    ]) X2 x* O2 j" N' f' O
end5 s4 E6 X* X5 Q
to setup-patches3 c" t0 N+ ~2 A3 b) x, v
  ask patches [ set pcolor green ]
9 [) K1 w# U# `0 j' k5 u# dend/ ^9 w7 K- j4 Q8 A. M5 `- o
to setup-turtles
) q/ F! z6 l% U0 a  create-turtles 100
: ^# f2 ?! G. V  ask turtles [ setxy random-xcor random-ycor ]% `. J0 u9 R! R/ B, @  S
end
0 @! d/ B" r" `* ~to eat-grass
6 u; |, X0 [$ [0 v( n  ask turtles [
) b* i. M9 X5 [    if pcolor = green [
) F9 Y8 ^9 F$ r, T  }: B) ~7 M2 n* T      set pcolor black* k+ c; o% A8 g9 D5 D
      set energy (energy + 10)7 n" w- V) W) t
      ]2 H7 r: w* b8 ?% V0 ^
    ifelse show-energy?; J( N6 a/ @7 L
      [ set label energy ]$ K- }3 o3 ]3 I  f
      [ set label "" ]
: z$ y2 k8 X; b4 g    ]" ~* |( x" z) J0 A4 T
end
0 O* b; o% m0 w1 xto reproduce
1 a# s& X; w/ P" w' C  ask turtles [
' n/ M# W- X$ n0 N- R- N) x    if energy > 50 [
- Z: g! |: x8 k9 k; r" R2 N& K      set energy energy - 50
) L; g0 m) M& C$ w      hatch 1 [ set energy 50 ]
* u& r, O- r$ J4 L; [1 M' V8 b      ]
! p- b7 ?. h; |$ k- d+ p    ]: C$ S; h6 P7 v- @3 M; f
end/ l! F) j. [' X, f5 y% {
to check-death
2 ]: `$ \& f  S. k  ask turtles [
0 T' K3 W4 P6 t5 x1 H    if energy <= 0 [ die ]4 d1 e, K; y' `7 n/ \8 U/ X
    ]
% Z& U2 U2 ~* G5 Q/ @. b6 e+ u: Gend5 R% o! o4 n$ q% E" Z& E5 Z/ Q  ~! g, l
to regrow-grass
' O  d1 R& s+ z) b5 c; _  ask patches [# C6 T# Q5 m# T: T) D' P' Q
    if random 100 < 3 [ set pcolor green ]4 E) H7 r2 v. {! a0 ^9 K
    ]
2 L( M2 U0 ?# Z8 W7 Bend
* p( C# L% F9 Z1 Uto do-plots
4 z$ m0 A3 g( v; M, }  set-current-plot "Totals"# c9 _* @6 F0 N. v, {: i
  set-current-plot-pen "turtles"
! f) d; N$ y3 Q  plot count turtles7 W2 a9 N; D4 ^) t0 a) {
  set-current-plot-pen "grass"$ Z5 J  \0 d/ ^9 I1 i
  plot count patches with [pcolor = green]! k, S5 `* e& s/ t: D
end
; s" p& o# Z2 t* |# I& X# h可是运行时提示no such plot: "Totals"" P9 M% H- ?+ J
error while observer running SET-CURRENT-PLOT4 N1 c, o4 x, a7 [
  called by procedure DO-PLOTS
, G1 U6 W" S- L% \  y1 z+ l$ U  called by procedure SETUP: p% ]* T7 W2 H# ]+ B
  called by 按钮 'setup'
9 b8 |7 Q# h& M/ n7 O1 x! c7 j8 [求大神解答啊
发表于 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 4 l( J: Z9 ]; C3 n" T+ y# K" w
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-29 16:09 , Processed in 0.017592 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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