设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10014|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& S" d. o' g) N. w$ [( dto setup
: `$ S# N  v0 p4 `- O  clear-all
; X6 q& A- x' i: S6 d  setup-patches8 {8 O9 O  H: f0 ^- R; O% e
  create-turtles 100# Q/ j, o/ l2 N0 o
  do-plots
6 m; r: I8 g# s, C  b$ l; x% z  ask turtles [ setxy random-xcor random-ycor ]& ?2 y& J. j; v
end4 K! ?  f$ o+ b$ E$ [
to go
! k# B4 i; @1 b3 L8 U  move-turtles5 s5 s5 S& k) i+ M1 n
  eat-grass: f, ?* z1 d- j8 y$ i
  reproduce
0 @' K& [5 X6 a, t" h  check-death
4 M# [4 {% o! Y  regrow-grass
) h; ~5 S+ ^6 o6 ?  do-plots8 ?. Y/ m8 |  i+ ?2 }9 d
end" Q1 h5 u- i! B
to move-turtles
  o( R. w! P- x  ask turtles [. H: t! H/ g, _
    right random 360
6 ?) z+ h/ `6 P7 Y1 }0 x( m    forward 1
5 X  r% o+ x, |# q    set energy energy - 1* W, l4 A. N  g/ `
    ]& x8 r! a. g  w( v: o/ Z4 c
end9 V- u) T$ m/ f. x( t! C
to setup-patches. V5 k- ^9 a) w8 w, z$ }; z
  ask patches [ set pcolor green ]
' g2 f) C! L2 j6 Xend( u- z; t% F4 i2 ?/ q
to setup-turtles# q0 N+ S$ I% t
  create-turtles 100# @% s; o! @2 i; |& ^+ n
  ask turtles [ setxy random-xcor random-ycor ]3 Y9 i% v& K& F- h
end
* h2 S! ~9 s2 I6 {7 ?to eat-grass
7 E/ L7 Q% ?# i7 D4 x  ask turtles [' J! ]' B6 W) [8 |2 ^" J' u
    if pcolor = green [- q3 c2 n4 c( x4 g4 c4 H
      set pcolor black
; V; F3 Z- F( z+ l- I; Z      set energy (energy + 10)
' {5 T& N' X7 F      ]8 J; B% s9 k8 a% L7 O
    ifelse show-energy?# B9 M/ n+ `7 s7 D3 P6 G
      [ set label energy ]) y9 G1 }6 K% z& h
      [ set label "" ]3 t, u- z' s  j$ Z) Z# m3 P. Z
    ]# b  ?* |7 D+ h
end& X$ M  K' Y  r
to reproduce. l% i' o- Z, y# d  L; p$ e
  ask turtles [2 _, R' k. R. S- w9 _. y" s
    if energy > 50 [$ A& y  d8 h9 z0 G9 V& N: p6 m
      set energy energy - 50
7 |# U  C& p3 ~5 @' Y8 W/ z      hatch 1 [ set energy 50 ]
& T3 e% B, K% z0 y5 e! G      ]) q. |4 H9 a5 x' m) V; Z  s
    ]
/ F+ |$ o6 l) G% y. ^( cend
5 r% @( c# s" a9 B/ V! e# D4 P. ]8 Oto check-death  Z! d- {9 S) O+ b
  ask turtles [8 ^$ F8 n# Z! m
    if energy <= 0 [ die ]
0 X4 n' D& [4 n' t- F    ]3 \, [2 P/ w; P. Q- L% C; V0 |
end$ }0 j' u  [3 `- }& T' E$ q
to regrow-grass$ [  b2 B+ b  J/ ^& E' S
  ask patches [
7 g; Z, V# \5 Q4 d# o( o# P    if random 100 < 3 [ set pcolor green ]7 R6 e% Q. C3 ^9 }* G- `- b
    ]
1 Z" q, k1 s) V# P3 g" mend- g* \. v' ]" P* E/ i9 h
to do-plots' T/ ?8 T, M6 ?# U) i% I
  set-current-plot "Totals"; N# s; A9 K6 K  V0 m
  set-current-plot-pen "turtles"! J& g8 r6 \0 R
  plot count turtles
0 K( j3 `; d0 @& _+ y* g0 {: T5 n. N  set-current-plot-pen "grass"
% W2 U* l  ~" s& S* [& h+ ~8 ]7 R. W  plot count patches with [pcolor = green]
/ y" U! }9 }/ rend! d: A; g! ?! Y
可是运行时提示no such plot: "Totals"& S) d3 ?- O& C3 f
error while observer running SET-CURRENT-PLOT5 {. M7 P0 E4 |7 X, Q  C* {3 y
  called by procedure DO-PLOTS
* Q2 p8 A7 P% r& F/ x( ~* \  called by procedure SETUP
- ^5 R+ i9 _) D4 c: ^( e8 `; e9 R  called by 按钮 'setup'
9 Z% i% T/ i5 j1 C1 y2 E求大神解答啊
发表于 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 2 X9 o9 p2 G7 ~3 }
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-6 16:23 , Processed in 0.024724 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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