设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12585|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 g: z' c7 V- M4 k# P
to setup
2 F2 q* |  B0 j- U6 t; z  clear-all/ b, N* i9 S6 u0 v. h1 Q; }8 V  g& n5 U* O
  setup-patches
0 m) |+ w, ?- a1 i  [$ `  create-turtles 100
$ S7 F. Y6 n4 d6 B/ q1 t  do-plots
) @8 J$ N! m% M# [1 I! t6 P% ?# F% L  ask turtles [ setxy random-xcor random-ycor ]* _& N/ A) ?5 k% U
end
- y/ ~5 |- b2 J" c+ d& ^to go" h' I# z- ~# d7 \2 W  _
  move-turtles
& c5 R& {1 e" l5 `  eat-grass
1 U! T/ z2 X4 `% h7 ]: L  reproduce& o2 D  I5 W  E* k% P* W8 H
  check-death( l+ q+ X6 N1 V, S
  regrow-grass
4 z! V5 x( m1 Y! {2 J  do-plots
* r8 t' q7 c5 i" B+ x( ~end
  y$ w' B. j0 K& a" W* fto move-turtles; a& A, D7 o) |5 I: W0 G
  ask turtles [
4 E0 T8 X3 t  y; d    right random 360
5 V6 F2 G9 K* p: M. u1 p    forward 1
& m) D7 j# Z1 `3 P    set energy energy - 1$ r1 @7 E" q6 g' A6 K
    ]
- w$ @. c6 h* g. dend
% S; ~* C+ H  `* M5 |8 ^to setup-patches
! ]4 Y0 \# C% O, h1 B& ^7 _  ask patches [ set pcolor green ]
/ K( `5 T1 l4 @# B7 v- `% Eend
" {  Y# X! ]% _9 |1 |2 ^to setup-turtles* V& Y% W) t7 F
  create-turtles 100
8 N' p  M; V* S  ask turtles [ setxy random-xcor random-ycor ]6 ^4 m8 U( q' d0 A
end
2 y% h* W  k. Nto eat-grass
% p& a" v7 ?+ m# K" i/ Q  ask turtles [
- K! g1 c$ b0 C4 J; n9 b4 i    if pcolor = green [
) @7 m2 q3 z' O& W& L* [      set pcolor black
+ h& D8 n5 R2 ~6 F4 e      set energy (energy + 10)2 q* K% ]' j+ L7 Y
      ]
- F, a6 w; E+ `/ b- V    ifelse show-energy?- ]; x, ^+ w7 v& W2 @6 b
      [ set label energy ]
3 `+ t8 \) Z: t      [ set label "" ]
" T( F$ D8 t+ b& q    ]
3 G: }9 }+ e7 |2 f# L7 mend% D% C" k( u7 }. t$ ?
to reproduce
7 z# j8 A; Q1 f7 M# t9 h  ask turtles [6 L/ M: v0 O6 W0 \
    if energy > 50 [* D! h" N% w: o3 T' J9 p
      set energy energy - 50) H2 L  O8 B1 f3 I0 d
      hatch 1 [ set energy 50 ]  V. T" e: H  C0 A# A- N9 q
      ]- ~. T& F( m4 ?# [: `5 N5 Y
    ]( S$ A: f* \1 i+ \( e6 U2 z
end" h! K% @, ~5 k) \% E
to check-death) T/ E, c- E$ `8 Z  B, g
  ask turtles [1 K+ @3 t/ u; p1 c8 ~+ N
    if energy <= 0 [ die ]" U/ x. B. G7 x0 B' j: I* \
    ]
1 ?# R8 j5 {- \$ Kend. K; ]! S. b+ [& s
to regrow-grass
  X! l, x8 h4 f2 r* z& Q  ask patches [# w/ x/ J. d2 v( |
    if random 100 < 3 [ set pcolor green ]3 {7 ~6 s4 c/ B# m7 e
    ]" W$ ?- m" ?! b# W% B& [& W
end
% i% A3 X7 ^7 n' o: |" m& B2 f7 A" S3 Sto do-plots8 ?4 f+ J# ?! ]
  set-current-plot "Totals"
# L1 `9 a* j# l. X! w1 K5 [  set-current-plot-pen "turtles"4 ~: ^8 ~/ I9 _1 w5 M; t
  plot count turtles, a; g% V$ M2 C$ G$ T3 T) j! |
  set-current-plot-pen "grass"9 }* t: y7 e. X8 Y/ O3 m
  plot count patches with [pcolor = green]
& ^! w" c  ~: F5 r- }% Cend
0 ?' N& J/ h% J可是运行时提示no such plot: "Totals"* ^: ~) B( D1 S
error while observer running SET-CURRENT-PLOT
+ Q' X# L  V% F. e# d2 c$ D  called by procedure DO-PLOTS
1 c# c* ^  q/ Z, Q- ?$ x) q  called by procedure SETUP
- f" S# _3 v: l2 {  called by 按钮 'setup'
0 r' L; H+ Q8 Y; x求大神解答啊
发表于 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 7 \- v! l9 b* Z( t$ Z7 R, a. Q8 o2 i
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-2 22:30 , Processed in 0.020746 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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